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PREFACE 



The Hewlett-Packard FORTRAN IV Reference Manual describes the language ele- 
ments used to code source programs in the HP FORTRAN IV programming language. 
This manual may be used with any of the following compilers: HP 24170 
FORTRAN IV, HP 24177 FORTRAN IV, or HP 18967 FORTRAN IV. 

The front matter includes a Table of Contents and an Introduction to the 
manual. Sections I through III describe the form of source programs and the 
types, identification and formats of data and expressions used in HP FORTRAN 
IV. Sections IV through IX describe the language elements used to code a 
source program, including the formats and uses of HP FORTRAN IV statements. 
The Appendices describe the format of data in memory, the form of HP FORTRAN IV 
jobs, departures from and extensions of ANSI FORTRAN IV specifications, features 
included in HP FORTRAN IV for compatibility with HP FORTRAN and HP FORTRAN IV 
Compiler error diagnostics. 



NOTE: Throughout the manual are special boxed notes 
that explain departures from ANSI FORTRAN IV 
specifications or features for compatibility 
with HP FORTRAN, 



This manual is a reference text for programmers who have had FORTRAN pro- 
gramming experience, either with HP FORTRAN or with other FORTRAN compilers. 
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NTRODUCTION 



The Hewlett-Packard FORTRAN IV Compiler is used to construct object language 
programs from source language programs written according to the rules of the 
HP FORTRAN IV language described in this manual. 

The FORTRAN IV Compiler can read source input from paper tape, punched cards, 
magnetic tape, or from a file (or files) in the User Area of the disc. The 
Compiler outputs the resultant object program on a standard punch device or 
to the Job Binary Area or Core Image Buffer Area of the disc in a format ac- 
ceptable to the Relocating Loader. 

HP FORTRAN IV is a two pass compiler. A pass is defined as a processing cycle 
of the source program. In the first pass, the source program is processed, a 
syraool table is constructed, and a set of intermediate machine code is generated. 
During the second pass, the Compiler searches the symbol table for object cede 
references, completes translation of the intermediate object code on the disc 
and produces a relocatable binary object program. It outputs the object pro- 
gram to the standard punch device and/or to the Job Binary Area of the disc. 
Source and object listings may be produced, if specified in the FTN control 
statement. 

The HP FORTRAN IV Compiler is available in these HP operating systems: Real- 
Time Executive (RTE-II/III) , Test Oriented Disc System (TODS-C) , and the 
DOS-Ill Disc Operating System. The hardware configurations required for com- 
piling and executing HP FORTRAN IV programs under the control of these systems 
are the same as the minimum requirements for the systems, as described in these 

manuals; 

Real-Time Executive-II Software System (HP 92001-93001) 
Rea l-Time Executive-Ill Software System (HP 92060-90004) 
HP 24307 DOS-Ill Disc Operating System (HP 24307-90006) 
Tes t Oriented Disc System (HP 09500-90234) 



The libraries of relocatable subroutines available with HP FORTRAN IV are 
described in the Relocata ble Subroutines manual (HP 02116-91780) . 



NOTE : 


HP FORTRAN IV source programs cannot be compiled under 




the control of the Basic Control System. (BCS) . However, 




object programs produced by the HP FORTRAN IV Compiler 




can be loaded and executed under BCS control if the com- 




puter has 8,192 words of memory and no program segments 




are used. 
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SECTION I 
THE FORM OF A FORTRAN IV PROGRAM 

The HP FORTRAN IV Compiler accepts as input a source program written accord- 
ing to the specifications contained in this manual. Each source program is 
constructed from characters grouped into lines and statements. Appendix F 
holds a sample source program listing. The elements used to construct, a source 
language program are defined in the following text. 

FOR TRAN IV SOURCE PROGRAMS 

The following terms define FORTPA.N IV Source Programs. 

Executable Program: A program that can be used as a self-contained computing 

procedure. An executable program consists of precisely 
one main program and its subprograms and segments*, if 
any. 

Main Program: A set of statements and comments not containing a 

FUNCTION or a SUBROUTINE statement, beginning with a 
PROGRAM statement and ending with an END statement. 

Subprogram: A set of statements and comments containing a FUNCTION 

or a SU3R0UTINE statement. When defined by FORTRAN 
statements and headed by a FUNCTION statement, it is 
called a function subprogram. When defined by FORTRAN 
statements and headed by a SUBROUTINE statement, it is 
called a subroutine subprogram. Subprograms can also 
be written in HP FORTRAN, HP ALGOL, or HP Assembly 
Language. 

Program Unit: A main program or a subprogram. 

Segments*: An overlayable set of statements beginning with a 

PROGRAM statement which specifies type 5, and ending 
with an END statement. 

* Segments cannot be included in programs to be run in BCS environment. 
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F ORTRAN IV CHARACTER SET 

A source language program is written using the following character set. 

Letters: The twenty-six letters A through Z. 

Digits: The ten digits 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 

Unless specified otherwise, a string of digits 
is interpreted in the decimal base number system 
when a number system base interpretation is 
appropriate. 

Alphanumeric Character: A letter or a digit. 

Blank Character: Has no meaning and may be used to improve the 

appearance of a program with the following 
exceptions : 

a. A continuation line cannot contain a blank 
in column 6. 

b. A blank character is valid and significant 
in Hollerith data strings. 

c ., In numeric input conversions, leading blanks 
are not significant, but embedded blanks are 
converted to zeros. A field of all blanks 
is converted to all zeros.. 
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Special Characters: Used for special program functions. They are: 

SYMBOL REPRESENTING 

blank 
equals 
+ plus 

minus 
* asterisk 

/ slash 

( left parenthesis 

) right parenthesis 

, comma 

decimcil point 
$ currency symbol 



SOU RCE PROGRAM LINE S 

Source program lines are written according to the following rules. 

Lines: A line is a string of 72 characters. All charac- 

ters must be from the HP ASCII character set. 
The character positions in a line are called columns, 
and are consecutively numbered 1, 2, 3, ..., 72. 
The number indicates the sequential position of a 
character in the line, starting at the left and 
proceeding to the right. 

Comment line: The letter C in column 1 of a line designates that 

line as a comment line. A comment line must be 
immediately followed by an initial line, another 
comment line, or an end line. A comment line 
does not affect the program in any way, and is 
available as a convenience for the user. 
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Program Line: The first statement of a main program may be the 

fol lowing : 

PROGRAM name (P n , P ,,,.... P ) 

1 Z o 

name = An alphanumeric identifier of up to five 
characters . 

(P , P ,...P ) are optional parameters . The acceptable 
v 'l' 2' 8 

list of parameters depends upon the operating 

system used. 
Basic Control System. Wo parameters are allowed. 
DOS-Ill Disc Operating System. Only P is allowed. 

P defines the program type according to the 

following . 

3=main program 
5= segment 
6= library 
7=library 

The program type is set ~o 3 if not specified. 
Real-Time Executive. Parameters P, through P are 

1 o 

allowed depending on whether the RTE system is 

disc-based (RTE-E) or core-based (RTE-C) . P 

defines the program type according to the 

following : 

0=system program 

l=real-time, core-resident program 
2=real-time, disc-resident program (RTE-E only) 
3=background, disc-resident program (RTE-E only) 
4=background, core-resident program (RTE-E only) 
5=background program segment (RTE-E only) 
7=library utility program 
8=subroutine used to satisfy generation 
requirement only 

The program type is set to 3 if not specified. P. ; 

throuqh P are real-time parameters. For a full 
& 

description of parameters refer to the applicable 
Real-Time Executive Software System manual 
(listed in the introduction) . 
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Initial Line: An initial line is a line that is neither a comment 

line nor an end line, and that contains the digit C 

or the character blank in column 6. Column 1 through 

5 may contain a statement laoel or the character blank. 

Continuation Line. A continuation line is a line that contains any charac- 
ters other than the digit or the character blank in 
column 6, and does not contain the character C or $ in 
column 1. Any other character may be placed in column 1. 
Any characters may be placed in columns 2 through 5.. A 
continuation line may only follow an initial line or 
another continuation line. A maximum of 19 continuation 
lines can be used after one initial line. 

End Line: An end line is a line with the character blank in 

columns 1 through 6, the characters E, N and D 
(preceded by, interspersed with, or followed by 
blank characters) in columns 7 through 72. The 
end line indicates to the compiler the end of the 
written description of a program unit. Every pro- 
gram unit must terminate with an end line. 



source: : program statements and labels 

Source program statements and statement labels are written according to 
the following rules. 

Statements: A statement consists of an initial line optionally 

followed by continuation lines. The statement is 
written in columns 7 through 72 of the lines. The 
order of the characters in the statement is columns 7 
through 72 of the first continuation line, columns 7 
through 72 of the next continuation line, etc. 
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Symbolic Names: A symbolic name consists of from one to six alpha- 
numeric characters (except that external names, i.e., 
main program, SUBROUTINE and FUNCTION names are 
limited to five characters) , the first of which must 
be alphabetic. 



O RDER OF STATEMENTS IN A SOURCE P ROGRAM 

When the source program is a main program: 

PROGRAM LINE 

SPECIFICATION STATEMENTS 

DATA STATEMENTS 

ARITHMETIC STATEMENT FUNCTIONS 

EXECUTABLE STATEMENTS 

END STATEMENT 



When the source program is a subprogram: 

FUNCTION or SUBROUTINE STATEMENT 
SPECIFICATION STATEMENTS 
DATA STATEMENTS (See Note 2.) 
ARITHMETIC STATEMENT FUNCTIONS 
EXECUTABLE STATEMENTS 
END STATEMENT 



NOTE: 1. FORMAT Statements can appear anywhere in a source program, 
as long as they appear after the PROGRAM LINE (main pro- 
gram) or FUNCTION or SUBROUTINE statement (subprogram) . 

2. Items in the DATA statement list are intialized at loading 
and not at every entrance to a. program or subprogram. 
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SECTION II 
DATA, CONSTANTS, VARIABLES AND ARRAYS 



There are six types of data ir. HP FORTRAN IV: 

INTEGER 

REAL 

DOUBLE PRECISION 

COMPLEX 

LOGICAL 

HOLLERITH 

Each data type has a specific format in core memory and a unique mathema- 
tical significance and representation. 



I DENTIFYING DATA TYPES 

A symbolic name, called a data name, is used to reference or otherwise 
identify data of any type. The following rules are used when identifying 
data : 

a. Data is named when it is identified, but not necessarily made 
available. 

t. Data is defined when it has a value assigned to it. 

c. Data is referenced when the current defined value of the data 
is made available luring the execution of the statement that 
contains the data reference. 



Da ta Type Association 

'The data name used to identify data carries the data type association, 
subject to the following restrictions: 

a. A data item keeps the same data type throughout the program 
unit. 
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b. If a TYPE- statement is used to establish a data type association 
(for integer, real, double precision, complex or logical data) , 
it overrides the implied association which occurs in integer and 
real data types in variables and arrays. (See "Establishing Data 
Names," below.) 



E stablishing Data Names 

There are different ways of establishing a data name for a data type, depend- 
ing upon the type of data and how the data is used. 

The form of a string representing a constant defines both the value and the 
type of the data. This definition is a function of how data is stored in 
core memory. The type of a constant is implicit in its name. 

A data name that identifies a variable or an array may have its data type 
specified in a TYPE- statement. (See Section IV, "Specification Statements.") 
In the absence of an explicit declaration in a TYPE- statement, the data type 
is implied by the first character of the data name, as follows: 

I, J, K, L, M, or N = integer type data 
any other letter = real type data 



U sing Data Names 

Data names are used to identify 

VARIABLES 

ARRAYS, or ARRAY ELEMENTS 

FUNCTIONS (See Section IX.) 
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WRITING CONSTANTS, VARIABLES A ND ARRAYS 

The following pages describe how to write constants, variables and arrays 
in HP FORTRAN IV. See Appendix A "Formats of Data in Core Memory," for 
a description of how each date type is stored in core memory. 
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INTEGER CONSTANT 



PURPOSE: An integer constant is written as a string of digits interpreted 
as a decimal number. 



FORMAT: 

+n 
n 

n = a decimal number with a range of --32,768 to 32,767 



COMMENTS: An integer constant is signed when it is written immediately 

following a + or - sign. If it is unsigned, an integer constant 
is assumed to be positive. 



EXAMPLES: 

-32768 
32767 


-12 
329 

+5557 
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REAL CONSTANT 



PURPOSE: A real constant is written as a string of deciraal digits con- 
taining an integer part, a decimal point, a decimal fraction 
and an exponent, ir that order. 



FORMAT: 




+m . n Ex 




m = an integer constant 




. = a decimal point: 




n = a decimal constant representing a fraction 




Ex = the character E followed by the exponent, a signed 




or unsigned integer 





COMMENTS: The decimal exponent is a multiplier (applied to the constant 
written immediately before it) that is equal to the number 
10, raised to the power indicated by the integer following the 
E. 

Either m or n (but not both) may be omitted; and either the 
decimal point or the exponent (but not both) may be omitted 
from a real constant. 



EXAMPLES: 



1.29 
.00123 
-901. 
256.177E2 



0.18E+2 
2E-3 
l.E+15 
-256.177E-2 
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DOUBLE PRECISION CONSTANT 



PURPOSE: A double precision constant is written as a string of decimal 
digits containing an integer part, a decimal point, a decimal 
fraction and an exponent, in that order. 



FORMAT: 


+m . n Dx 




m = 


an integer constant 




. = 


a decimal point 




n = 


a decimal constant representing a fraction 




Dx = 


the character D followed by the exponent, a 
unsigned integer 


signed or 



COMMENTS: The decimal exponent is a multiplier (applied to the constant 
written immediately before it) that is equal to the number 10, 
raised to the power indicated by the integer following the D. 

Either m or n (but not both) can be omitted. A decimal point 
must separate in and n when both are specified. When m is 
present, both the decimal point and n can be omitted. 



EXAMPLES: 



1.29D0 
•0123E^1 
256.17702D02 
-256.17702D-2 
2D- 3 
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COMPLEX CONSTANT 



'URPOSE: A complex constant is composed of a real part and an imaginary 
part, and is written as an ordered pair of real constants, sep- 
arated by a comma and enclosed in parentheses. 



FORMAT: 



(m , m 2 ) 



m and m are real constants, signed or unsigned 



COMMENTS: The first real constant is the real part; the second, the 
imaginary part. 



EXAMPLES 



(1.29, 256.177E-2) 
(-901., 0.) 
(-.123E+01, -12.3E-4) 
(0. , 0.) 
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LOGICAL CONSTANT 



PURPOSE: A logical constant is a truth value, either true or false. 



FORMAT: 

.. TRUE . 
. FALSE . 



COMMENTS: The periods must be used as shown. 



EXAMPLES: 

. TRUE . 
.FALSE. 
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HOLLERITH CONSTANT 



PURPOSE: A Hollerith constant is written as an integer constant followed 
by the letter H, followed by one or two characters from the 
FORTRAN character set. 



FORMAT: 

n H x 

n = an integer constant (either 1 or 2) 

H = the Hollerith descriptor, which is the character H 

x = one or two alphanumeric characters 



COMMENTS: If n = 1, the character immediately following the H is placed 

in the left half of the computer word used to store the constant 
The right half of the word contains a blank character. 

If n = 2, the first character after the H is put in the left 
half of the word, the next character in the right half. 

An error diagnostic occurs if n = or n >2. 
Hollerith constants are typed as integer. 



EXAMPLES: 



1H@ 2HBB 

1HA 2H$$ 

2H A 2H12 



2-9 



OCTAL CONSTANT 



PURPOSE: An octal constant is written as a string of from one to six 

octal digits terminating with a B octal descriptor. An octal 
constant is an implied integer constant. 



FORMAT: 



+n 1 n 2 n 3 n 4 n 5 n 6 B 



n, to n,_ = octal digits 
1 6 

B = the octal descriptor, the character B 



COMMENTS: If an octal constant has more than six digits or if the 

leading digi'i in a six-digit constant is greater than one, 
an error diagnostic occurs. 



Integers n up to n may be omitted if they equal 0. The 



EXAMPLES: 



octal constant may carry a sign. 



2 IB 
+00B 

OB 

177777B 
-1705B 
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SIMPLE VARIABLE 



PURPOSE: is the symbolic name of a single value. 



FORMAT: 



One to six alphanumeric characters, the first of 
which must be a letter. 



COMMENT::.: If the variable has a first character of I, J, K, L, M or N, 
it is implicitly typed as an integer variable. All other 
first letters imply that the variable is real. 

Implicit typing may be overridden for individual symbolic 

names by declaring them in a TYPE- statement. (See Section IV.) 



EXAMPLES 



Integer 



Real 



1125 


A125 


JMAX 


UMAX 


MREAL 


REAL 


K 


X 
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ARRAY 



An array is an ordered set of data of one, two or three dimensions. An array 
is identified by a symbolic name called the array name. The size and number 
of dimensions of an array must be defined in a DIMENSION, COMMON or TYPE~ 
statement. 



ARRAY ELEMENT 

An array element is a member of the array data set. The array element is 
identified by a subscript immediately following the array name. 

An array element may be defined and referenced. 



SUBSCRIPT EXPRESSIONS 

A subscript expression may be any arithmetic expression allowed in FORTRAN IV. 
If the expression is of a data type other than integer, it is converted to 
integer before being used as a subscript. 

In a program unit any appearance of a symbolic name that identifies an array 
must be immediately followed by a subscript, except in the following cases : 

a. In the list of an input/output statement 

b. In a list of dummy arguments 

c. In the list of actual arguments in a function or subroutine 
reference 

d. In a COMMON statement 

e. In a TYPE- statement 

f. In a DATA statement 
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SUBSC RIPT 

A subscript is written as a parenthesized list of subscript expressions.. 
Each subscript expression is separated by a comma from its successor, if 
there is a successor. 

The number of subscript expressions must be less than or equal to the num- 
ber of dimensions declared for the array name in a DIMENSION, COMMON or 
TYPE- statement. The value of a subscript is defined in Table 2-1, below. 
The value refers to the number of array elements (stored in column order) 
inclusively between the base entry and the one represented by the subscript 



TABLE 2-1 

THE VALUE OF AN ARRAY SUBSCRIPT 

(IN AN ARRAY) 











*MINIMUM 


♦MAXIMUM 


ARRAY 


SUBSCRIPT 




SUBSCRIPT 


SUBSCRIPT 


SUBSCRIPT 


DIMENSION (S) 

1 


DECLARATOR 
(A) 


SUBSCRIPT 
(a) 


VALUE 


VALUE 


VALUE 

A 


a 


1 


2 


(A,B) 


(a,b) 


a+A*(b-l) 


1 


A*B 


3 


(A,B,C) 


(a,b,c) 


a+A* (b-1) 












+A*B* (c-1) 


1 


A*B*C 


*Refer to warn 


.ng on page 


2-14. 









Usage of an unsubscripted array name always denotes the first element of 
that array, except in an I/O statement or a DATA statement, where the 
entire array is referenced.. 

DEFINING VARIABLES AND ARRAY ELEMENTS 

Variables and array elements become initially defined (before execution 
begins) if, and only if, their names are associated in a DATA statement 
with a constant of the same data type as the variable or array in question. 
Any entity not sc defined is said to be "undefined" at the time the first 
executable statement in a main program, is executed. 
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SUBSCRIPTED VARIABLE 



PURPOSE: Refers to a particular element of an array of the same symbolic 
name as that of the subscripted variable. 



FORMAT: 



s ( a ± , a 2 , 



a ) 
n 



s 
a 



the symbolic name of the array 

expression (s) which determine the values of the 

subscript (s) of the subscripted variable 

1, 2, or 3 



COMMENTS: Subscripted variables must have their subscript bounds specified 
in a COMMON, DIMENSION, or TYPE- statement prior to their first 
appearance in an executable statement or in a DATA statement. 

A subscript may be any arithmetic expression. If non-integer, the 
subscript is evaluated and converted to integer (by truncating) 
before being used as a subscript. 

A subscripted variable is named and typed according to the same 
rules as a simple variable. 



EXAMPLES 



WARNING: No check is made by the compiler to verify that 
array subscript values fall within declared DI- 
MENSION bounds. Unpredictable reisults (including 
system crashes) occur if references are made to 
dimensioned variables outside of the declared 
bounds of the array. Thus, array subscripts may 
not be less than one or greater than the declarec 
array size. 



A(3,5,2) 
1(10) 
ARRAY (2,5) 



MAX ( I , J ) 

MIN (I-J, (I~J)*K/A,4) 
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SECTION III 
EXPRESSIONS 

Ail expression is a constant, variable or function reference (see Section IX) , 
or combination of these, separated by operators, commas or parentheses. 
Expressions are evaluated by the compiler. 

There are three types of expressions: arithmetic, logical and relational. 



ARI THMETIC EXPRESSIONS 

An arithmetic expression, formed with operators and elements, defines a 
numerical value. Both the expression and its elements identify integer, 
real, double precision or complex values. 



A ri thmetic Operators 

The arithmetic operators are: 

Symbol Mathematic Function Example 

** exponentiation A**B 

/ division A/B 

* multiplication A*B 

subtraction (or negative value) A-B or -A 

4 addition (or positive value) A+B or +A 



Arithmetic Elements 



The arithmetic elements are defined as: 



PRIMARY: An arithmetic expression enclosed in paren- 

theses, a constant, a variable reference, an 
array element reference or a function reference. 
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FACTOR : 



A primary, or a construct of the form: 
PRIMARY * *PR IMARY 



TERM: 



A factor, or a construct of one of the 
forms : 

TERM/FACTOR 
TERM*TERM 



SIGNED TERM: 



A term, immediately preceded by + or 



SIMPLE ARITHMETIC EXPRESSION: A term, or two simple arithmetic express- 
ions separated by + or -. 



ARITHMETIC EXPRESSION: 



A simple arithmetic expression or a signed 
term or either of the preceding forms 
immediately followed by + or -, followed by 
a simple arithmetic expression. 



Co mbining Arithmetic Elem ents 

Vvhen adding, subtracting, dividing or multiplying, the compiler combines 
arithmetic elements according to the rules shown in Table 3-1. 







TABLE 3-1 








RESULTS: COMB IN I 


NG ARITHMETIC 


ELEMENTS (+,-,*,/) 




FIRST 










ELEMENT 
TYPE 




SECOND ELEMENT TYPE 




INTEGER 


REAL 


DOUBLE PRECISION 


COMPLEX 


INTEGER 


INTEGER 


REAL 


DOUBLE PRECISION 


COMPLEX 


REAL 


REAL 


REAL 


DOUBLE PRECISION 


COMPLEX 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE PRECISION 


COMPLEX 


PRECISION 


PRECISION 


PRECISION 






COMPLEX 


COMPLEX 


COMPLEX 


COMFLEX 


COMPLEX 
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I x ponenti ation of Arithmetic Elements 



Arithmetic elements can be exponentiated according to the rules shown in 
Table 3-2. 

TABLE 3-2 



RESULTS: EXPONENTIATION OF ARITHMETIC ELEMENTS (**) 

EXPONENT TYPE 



3ASE TYPE 



INTEGER 

real 

DOUBLE 
PRECISION 

COMPLEX 



INTEGER 



INTEGER 

REAL 

DOUBLE 
PRECISION 

COMPLEX 



REAL 



DOUBLE PRECISION COMPLEX 



NOT ALLOWED NOT ALLOWED 

REAL DOUBLE PRECISION 

DOUBLE 

PRECISION DOUBLE PRECISION 

NOT ALLOWED NOT ALLOWED 



NOT ALLOWED 
NOT ALLOWED 

NOT ALLOWED 
NOT ALLOWED 



[■: v a lu ating Arithmetic Expressions 

rl he compiler evaluates arithmetic expressions from left to right, according 
to the following rules: 

PRECEDENCE: ( ) parentheses, for grouping expressions, then 
** exponentiation, then 

*,/ multiplication and division (whichever occurs 
first) then 
unary minus, then 
+ ,-■ addition and subtraction '.whichever occurs first). 



SEQUENCE: 



Evaluation begins with the subexpression most deeply 
nested within parentheses. 

Within parentheses, subexpressions are evaluated fron 
left to right in the order of precedence above. 
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Function references are evaluated from left to right as 
they occur. 

No factor is evaluated that requires a negative valued primary to be raised 
to si real or double precision exponent. No factor is evaluated that requires 
raising a zero valued primary to a zero valued exponent. No element is 
evaluated if its value has not been mathematically defined. Integer overflow 
resulting from arithmetic operations is not detected at execution time. 



.OGICAL EXPRESSIONS 



A logical expression is a rule for computing a logical value. It is formed 
with logical operators and logical elements and has the value true or false'. 



Logical Operators 

The logical operators and the logical result of their use in an expression 
e.re : 



:y mbol 

.OR. 

.AND. 

-NOT. 



Mathematic F unction 

LOGICAL DISJUNCTION 
LOGICAL CONJUNCTION 
LOGICAL NEGATION 



Ex ample 

A .OR. B 
A .AND. B 
. NOT . A 



Logical Expression 
(loqical elements A and B) 



LOGICAL RESULT IS 



TRUE 



FALSE 



A. OR. B 



If either A or 
B is true 



If both A and B 
are false 



A .AND. B 



If both A and 
are true 



If either A or B 
is false 



. NOT . A 



If A is false 



If A is true 
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Lo q' ical Elements 

The logical elements are defined as: 

LOGICAL PRIMARY: A logical expression enclosed in parentheses, a 

relational expression, a logical constant, a 
logical variable reference, a logical array element 
reference, or a logical function reference. 



LOGICAL FACTOR: 



LOGICAL TERM: 



A logical primary, or .NOT. followed by a logical 
primary. 

A logical factor or a construct of the form: 
LOGICAL TERM .AND. LOGICAL TERM 



LOGICAL EXPRESSION: A logical term or a construct of the form: 

LOGICAL EXPRESSION .OR. LOGICAL EXPRESSION 

REL A TIONAL EXPRESSIONS 

A relational expression is a rule for computing a conditional logical ex- 
pression. It consists of two arithmetic expressions separated by a re- 
lational Dperator- The relation has the value true or false as the relation 
is true or false. The operands of a relational operator must be of type 
integer, real, or double precision, except that the operators .EQ. and .NE. 
may have operands of type complex. 



3-5 



Relational Operators 

The relational operators are: 

Symbol Mathematic Function Examp le 

A .LT. B 

A .LE. B 

A .EQ. B 

A .NE. B 

A .GT. B 

A .GE. B 



EXAMPLE: If A = 5 and B = 3, then 

(A .LT. B) is false 

((A .LE. B) .OR. (B .LE. A)) is true 



.LT. 


less than 




.LE. 


less; than or 


equal to 


.EQ. 


equal to 




.NE. 


not equal to 




.GT. 


greater than 




.GE. 


greater than 


or equal tc 



NOTE: Integer overflow resulting from arithmetic operations is not de- 
tected at execution time. Care must be taken when the relational operators 
LT., .LE., .GT., and GE are used with integer operands. The object codes 
generated by this compiler for relational operators on integers are as fol- 
lows: 

I .LT. J I . LE. J I. EQ. J I .NE . J 1 .G T. J I .GE.J 



LDA J 
CM A, IN A 
ADA I 


LDA I 
CMAJNA 
ADA J 
CMA 


LDA I 
CPA J 
CCA,RSS 
CLA 


LDA I 
CPA J 
CLA,RSS 
CCA 


LDA I 
CMAJNA 
ADA J 


LDA I 
CMAJNA 
ADA J 
CMA 
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SECTION IV 
SPECIFICATION STATEMENTS 



Specification statements are non-executable statements that specify variables, 
arrays and other storage information to the compiler. There are six specifi- 
cation statements in HP FORTRAN IV. IT is recommended that specification 
statements be used in the following order: 
TYPE- 
DIMENSION 
COMMON 
EQUIVALENCE 
EXTERNAL 
DATA 



AR RAY DECLARATOR 

DIMENSION, COMMON and TYPE- statements use array declarators to specify the 
arrays used in a program unit. An array declarator indicates the symbolic 
name of the array, the number of dimensions (one, two or three) , and the 
size of each array dimension. An array declarator has the following format: 

v (i) 

v = the symbolic name of the array 

i = one, two or three declarator subscripts (for one, two or 
three dimensional arrays) . Each subscript must be an 
integer constant or a dummy integer variable name. (See 
Section IX.) 

If a two or a three dimensional array is being specified, each declarator 
subscript is separated from its successor by a comma. 

The values given for the declarator subscripts indicate the maximum value 
that the subscripts can attain in any array element name . The minimum 
value is always one. 
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EXTERNAL 



PURPOSE: To declare external function or subroutine names that will be 
referenced in the program unit. 



FORMAT : 



EXTERNAL v, , v. ..., v 
12 n 



v = any external function or subroutine name 



COMME.NTS: If an external function or subroutine name is used as sin argu- 
ment to another external function or subroutine, it must appear 
in an EXTERNAL statement in the program unit in which it is so 
used. 



NOTE: EXTERNAL names are limited to five characters in 
length. 



EXAMPLES: 

EXTERNAL FUN, IS;, SIN 
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TYPE 



PURPOSE: To declare the data type of: variable names, array names, function 
names or array declarators used in a program unit. 



FORMAT: 

INTEGER 

REAL 

DOUBLE PRECISION > v,, v_ , ..., v 

/ 12 n 

COMPLEX 
LOGICAL 

v = a variable, array, function, or array declarator. 



COMMENTS: Subroutine names cannot appear in a TYPE- statement. 

If the same symbolic name appears in more than one TYPE- 
statement, the last use of the name states the data type. 

A TYPE- statement can be used to override or confirm the implicit 
typing of integer or real data and must be used to declare the 
data type for double precision, complex or logical data. 

A symbolic name in a TYPE- statement informs the compiler that 
it is of the specified data type for all appearances in the 
program unit. 



EXAMPLES 



INTEGER I, A, ARRAY (3,5,2) 

REAL MAX, UNREAL, R(5) 

DOUBLE PRECISION D, DOUBLE (2), DARRAY(3,3) 

COMPLEX C , CPLEX , CARRAY (2,3,4) , CAREA 

LOGICAL T, FALSE, L(4), J 
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DIMENSION 



PURPOSE : To specify the symbolic names and dimension (s) of arrays used 
in a program unit. 



FORMAT : 



DIMENSION v n (i n ), V (ij , ..., v (i ) 
11 2 2 n n 



v(i) = an arreiy declarator 



COMMLNTS: Every array in a program unit must bs specified in a DIMENSION, 
TYPE or COMMON statement. 



WARNING: No check is made by the compiler to verify that 
array subscript values fall within declared DI- 
MENSION bounds. Unpredictable results (including 
system crashes) occur if references are made to 
dimensioned variable outside of the declared 
bounds of the array. Thus, array subscripts may 
not be less than one or greater than the declared 
array si ze . 



EXAMPLES' 

' DIMENSION MATRIX (3, 3,3) 
DIMENSION I (4) , A (3, 2) 
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COMMON 



PURPOSE: To provide a means for sharing core memory between a main program 

and its subprograms, or for sharing core memory between subprograms. 



: 0RMAT: 

COMMON a 

a = a list of variable names, array names or array 
declarators . 



COMMENTS: A symbolic name that appears in a COMMON statement must be a vari- 
able name, an array name or an array declarator. Once these names 
are used in a COMMON statement, they cannot be used in another COM- 
MON statement in the same program unit. 

All entities in the COMMON statement are declared to be in unlabeled 
(blank) common. 

The size of a common block is the sum. of the storage required for 
the elements introduced through COMMON and EQUIVALENCE statement 
in a program unit. Entities are strung together in the order of 
appearance . 



NOTE: Named common blocks are not permitted in HP FORTRAN IV. 



EXAMPLES 



COMMON I, CAREA(2,3), J (3) 
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EQUIVALENCE 



PURPOSE: Allows the sharing of core memory locations by two or more 
entities. 



FORMAT: 






EQUIVALENCE (k ) , (JO, ..., (k ) 
12 n 


k = 


a list of two or more variable names, array names or 




array element names with integer constant subscripts. 



COMMENTS: A symbolic name which appears in an EQUIVALENCE statement must 
be a variable, array or array element name. 

Equivalence can be established between different data types, but 
the EQUIVALENCE statement cannot be used to equate two or more 
entities mathematically. 

The EQUIVALENCE statement can associate a variable in COMMON with 
one or more variables not in COMMON, or may associate two or more: 
variables none of which are in COMMON. 

No equivalence grouping is allowed between two entities in COMMON. 

A variable not in COMMON, when equivalenced to a variable in 
COMMON, becomes a part of the COMMON area. A COMMON area, how- 
ever, only can be lengthened by equivalence groupings. If an 
equivalence grouping causes an entity to be relocated before the 
first entity in COMMON, an error diagnostic occurs. 



EXAMPLES: 



See the following page for examples of correct equivalence 
grouping. 
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INTEGER I, A, ARRAY 

REAL R(4) 

COMPLEX CAREA 

LOGICAL L 

DOUBLE PRECISION DOUBLE (2), DARRAY 

DIMENSION DARRAY (2) 

DIMENSION I (4), A (3, 2), L(4) 

COMMON CAREA (2,2), I, DOUBLE 

EQUIVALENCE (CAREA (2 , 1 ) , R) , (DOUBLE (2) , DARRAY) 

EQUIVALENCE (A (3,2), L(4) ) 



Results in this COMMON and 
equivalenced area of 29 words 
(2 6 words in original COMMON, 
3 added by EQUIVALENCE) . 



Results in this non-COMMON 
equivalenced area of six words. 



A(l,l) 




A(2,l) 




A(3,l) 


L(l) 


A(l,2) 


L(2) 


A(2,2) 


L(3) 


A(3,2) 


L(4) 



CAREA 
(1,1) 




CAREA 
(2,1) 


R(l) 


R(2) 


CAREA 
(1,2) 


R(3) 


R(4) 


CAREA 
(2,2) 




Id) 




1(2) 




1(3) 




1(4) 




DOUBLE 
(1) 




DOUBLE 
(2) 


DARRAY 
(1) 




DARRAY 
(2) 
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DATA 



PURPOSE: To define the initial values of variabiles, single array elements, 
portions of arrays or entire arrays. 



FORMAT 






DATA :< ,/d /, k /d /, . .., k /d / 
1 1 2 2 n n 


k = 


lists of names of variables, array elements or arrays 


d = 


lists of constants (optionally signed) which can be 




immediately preceded by an integer constant (followed 




by an asterisk; identifying the number of times the 




constant is; tc oe repeated. 


/ = 


separators, used to bound each constant list 



COMMENTS: Mixed mode assignments are not permitted. The DATA statement 

may only assign values that agree in mode to their identifiers. 
Hollerith data can oe assigned only to integer type variables 
or arrays. 

If a list contains more than one entry, the entries must be 
separated by commas. An initially-defined variable, array ele- 
ment or array may not be in common, nor can it be a dummy argu- 
ment . 

DATA statements; must come after ail ether specification state- 
ments in the program. 



NOTE: Unsubscnpted array names are allowed in DATA statement: 
If the array has n elements , the next n constants from 
the list are used to initialize the airray (in column 
order). If the remainder of the constant list has m<n 
elements m it, then only the first m elements of the 
arrau ar ■: • 1 ; i tialized. 



EXAMPLES: 



DATA A, CARKAY (2,2, 1 ) /6*C , (1.0,-2. 39E- 1 I / 
DATA FALSE, ARIA;, '.FALSE., 2HIA/ , D/-2 . 39D-01/ 
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SECTION V 
ASSIGNMENT STATEMENTS 



Assignment statements are executable statements that assign values to vari- 
ables and array elements. There are three types of assignment statements: 

Arithmetic assignment statements 
Logical assignment statements 
ASSIGN TO statement 



ARITHMETIC ASSIGNMENT STATEMENT 

PURPOSE: Causes the value represented by an arithmetic expression to be 
assigned to a variable. 



: 0RMAT : 

v = e 

v = a variable name or an array element name of any data 

type except logical 
e = any arithmetic expression 



NTS: v is altered according to the rules expressed in Table 5-1, 
A variable must have a value assigned to it before it can be 
referenced. 



EXAMPLES: 

K = 2HAB 

A(I,J,K)=SIN(X)*2.5-A(2,1,3) 
1 = 1 
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Table 5-1. 
RULES FOR ASSIGNING e to v 



If v Type Is 



In tegs 


r 


Int< 


:ge 


r 


Intege 


r 


Int< 


iqe 


r 


Re a. 






Re a: 






Re a! 






Real 







Double: Precision 
Double: Precision 
Double Precision 
Double Precision 

Complex 
Conplex 
Complex 
Complex 



And e Type Is 

Integer 

Real 

Double Precision 

Complex 

Integer 

Real 

Double Precision 

Complex 

Integer 

Real 

Double Precision 

Complex 

Integer 

Real 

Double: Precision 

Complex 



The Assignment Rule Is 

As s i gn 

Fix & Assign 

Fix & Assign 

Fix Real Part & Assign 

Float & Assign 

Assign 

DP Evaluate & Real Assign 

Assign Real Part 

DP Float & Assign 

DP Evaluate & Assign 

Assign 

DP Evaluate Real Part & Assign 

Convert & Assign 
as Real Part With 
Imaginary Part = 
Assign 



NOTES : 



1. Assign means transmit the resulting value,, without change, to 
the entity. 

2. Real Assign means transmit, to the entity as much precision of the 
most significant part of the resulting value as a real datum can 
contain. 

3. DP Evaluate means evaluate the expression then DP Float. 

4. Fix means truncate any fractional part of the result and transform 
that value to the form of an integer datum. 

5. Float means transform the value to the form of a real datum. 

6. DP Float means transform the value to the form of a double pre- 
cision datum, retaining in the process as much of the precision 
of the value as a double precision datum can contain. 



LOGICAL ASSIGNMENT STATEMENT 



PURPOSE: Causes the value represented by the logical expression to be as- 
signed to a simple or subscripted variable. 



FORMAT: 


v == e 




V = 


a logical variable name or a logical array element 
name 




e = 


a logical expression 





COMMENTS: A variable must have a value assigned to it before it can be 
referenced. 



EXAMPLES: 

T = .TRUE. 
FALSE = .FALSE. 
T = A.LT.B 
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ASSIGN TO STATEMENT 



PURPOSE: Initializes an assigned GO TO statement variable reference by 
storing in it the location of a statement label. 



FORMAT: 






ASSIGN k TO i 


k = 


a statement label 


i = 


an integer variable name 



COMMENTS: After the ASSIGN TO statement is executed, any subsequent exe- 
cution of an assigned GO TO statement using the integer variable 
causes the statement identified by the assigned statement label 
to be executed next. 

The statement label must refer to an executable statement in the 
same program unit in which the ASSIGN TO statement occurs. 

Once mentioned in an ASSIGN TO statement,, an integer variable 
may not be referenced in any statement other than an assigned 
GO TO statement until it has been redefined. 



EXAMPLES: 



ASSIGN 12 34 TO I LABEL 



GO TO I LABEL, (100,1234,200) (or, GO TO ILABEL) 



1234 1=1 



SECTION VI 
CONTROL STATEMENTS 



Normally, a program begins with the execution of the first executable state- 
ment in the program. When the execution of that statement is completed, the 
next sequential executable statement is executed. This process continues 
until the program ends. 

A subprogram, if referenced, starts with its first executable statement, 
then executes the next sequential executable statement, and so on, until it 
returns control to the program statement which referenced it. 

Control statements are executable statements that alter the normal flow of 
a program or subprogram. There are twelve control statements in HP FORTRAN 

IV. 

GO TO (Unconditional) 

GO TO (Assigned) 

GO TO (Computed) 

IF (Arithmetic) 

IF (Logical) 

CALL 

RETURN 

CONTINUE 

PAUSE 

STOP 

DO 

END 



GO TO 



UNCONDITIONAL 



PURPOSE: Causes the statement identified by the statement label to be 
executed next. 



FORMAT: 

G TO k 
k = a statement label 



COMMENTS: The program continues to execute from the statement identified 
by k. 



EXAMPLE: 

GO TO 12 34 
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GO TO 

ASSIGNED 



PURPOSE: Causes the statement identified by the current value of an in- 
teger variable reference to be executed next. 



FORMAT: 



GO TO i, (k , k. ? , .. . , k ) 
GO TO i 



i = an integer variable reference 
k = a statement label 



COMMENTS: The current value of i must have been assigned by a previous 
execution of an ASSIGN TO statement. 

The compiler does not check if i contains one of the state- 
ment labels in the list; the list is for programmer's docu- 
mentation purposes only. 



IXAMPLE: 



ASSIGN 1234 TO ILABEL 



GO TO ILABEL, (1234,200,100) (or, GO TO ILABEL) 
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GO TO 

COMPUTED 



PURPOSE: Causes the statement identified by an indexed label from a 
list of labels to be executed next. 



FORMAL- 



EXAMPLE : 



GO TO (k , k , ..., k ) , e 

12 n 



k = a statement label 

e = an arithmetic expression 



COMMENTS: The expression is evaluated, and converted to integer, if 
necessary. 



If the expression value is less than one, statement k is 
executed. If the expression value is greater than n, 
statement k is executed. If 1 < e < n, statement k is 



n 



e 



executed. 



GO TO (100,200,300) , k 

100 CONTINUE (if k < 1) 
200 CONTINUE (if k = 2) 
300 CONTINUE (if k > 3) 
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IF 

ARITHMETIC 



PURPOSE: Causes one of two or three statements to be executed next, depend- 
ing upon the value of an arithmetic expression. 



FORMAT: 



IF (e) k , k 2 , k 3 
IF (e) k , k 2 



e = an arithmetic expression of type integer, real or 

double precision, 
k = a statement label 



COMMENTS: When the statement contains three statement labels, the state- 
ment identified by the label k , k 2 , or k 3 is executed next if 
the value of e is less than zero, equal to zero, or greater than 
zero, respectively. 



When the statement contains two statement labels, the statement 
identified by k is executed next when the value of e is less 
than zero; k is executed next when the value of e is equal to 
or greater than zero. 



EXAMPLES: 



IF (A - B) 100, 200, 300 
IF (SIN(X) - A*B) 100,200 
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IF 



LOGICAL 



PURPOSE: Causes a statement to be executed next if ai logical expression is 
true, or causes one of two statements tc be executed, depending 
upon the value of the logical expression. 



FORMAT: 



IF (e) s 

IF (e) k ± , k 2 

s = an executable statement, (except a DC or a logical IF) 
e = a logical expression 
k = a statement label 



COMMENTS: If the logical expression is true (first format), statement s 
is executed. If s does not transfer control elsewhere, execu- 
tion then continues with the statement following the IF. If 
e is false, the statement s is not executed, but the next 
sequential statement after the IF is executed. 

If the logical expression is true (second format) , statement 
k is executed. If the logical expression is false, state- 
ment k is executed. 



EXAMPLES: 



IF (A . EQ. B) A = 1.0 

IF (SIN(X) .LE. (A-B)) 100,200 
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CALL 



PURPOSE: Causes a subroutine to be executed. 



FORMAT: 


CALL s 






CALL s (a , a,,. 


., a ) 
n 


s = 


the name of a subroutine 




a = 


an actual argument 





COMMENTS: When the subroutine returns control to the main program, exe- 
cution resumes at the statement following the CALL. 

An actual argument is a constcint, a variable name, an array 
name, an array element name, expression or subprogram name. 
Actual arguments in a CALL statement must agree in order, 
type and number with the corresponding dummy parameters in 
a subroutine. (See Section IX.) 



EXAMPLES: 



CALL MATRX 



SUBROUTINE MATRX 



CALL SUBR (I, C) 



RETURN 

END 

SUBROUTINE SUBR (I, J) 



RETURN 
END 
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RETURN 



PURPOSE Causes control to return to the current calling program unit, if 
it occurs in a function subprogram or a subroutine. Causes the 
program to s~op if it occurs in a main program. 



FORMAT: 



REIT URN 



COMMENTS: When the RETURN statement occurs in a subroutine, control returns 
to the first executable statement following the CALL statement 
that referenced the subroutine. 

When the RETURN statement appears in a function subprogram, con- 
trol returns to the referencing statement. The value of the 
function is made avai labile in the expression which referenced 
the function subprogram. 

The END statement of a function subprogram or a subroutine is 
also interpreted as a RETURN statement. 



EXAMPLES: 



CALL MATRX 



SUBROUTINE MATRX 



I = MIX(L,M)/A*B 



RETURN 



RETURN 

END 

INTEGER FUNCTION MIX (I, J) 



MIX = I + J 

RETURN 

END 
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CONTINUE 



PURPOSE: Causes continuation of the program's normal execution sequence 



FORMAT: 

CONTINUE 



COMMENTS: The CONTINUE statement can be used as the terminal statement in a 
DO loop. 

If used elsewhere, the CONTINUE statement acts as a dummy state- 
ment which causes no action on the execution of a program. 



EXAMPLE: 

DO 5 I = 1, 5 



CONTINUE 
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STOP 



PURPOSE: Causes the program to stop executing. 



FORMAT: 

STOP n 
STOP 
n = an octal digit string of one to foui: characters 



COMMENTS: When this statement is executed, STOP is printed on the teleprinter 
output unit. If n is given, its value is also printed, after the 
word STOP. 



EXAMPLES: 

STOP 12 34 
STOP 
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PAUSE 



PURPOSE: Causes the program to stop executing. Execution is resumable in 
sequence. 



FORMAT: 






PAUSE 




PAUSE n 


n = 


an octal digit string of one to four characters 



COMMENTS: When this statement, is executed, PAUSE is printed on the tele- 
printer output unit. If n is given, its value is also printed, 
after the word PAUSE. 

The decision to resume processing is not under program control. 
To restart, a system directive must be issued by the system 
operator. 



EXAMPLES: 



PAUSE 12 34 
PAUSE 
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DO 



PURPOSE: To initiate and control the sequence of instructions in a pro- 
grammed loop. 



FORMAT: 










D( 


) n i = m , m , m 






D( 


> n i = m , m 




n = 


the statement 


label of an executable 


statement (called 




the terminal : 


tatement) 




i = 


a simple in tec. 


er variable name (called the control variable) 


m i = 


an arithmetic 


expression (called the 


initial parameter) 


m 2 = 


an arithmetic 


expression (called the 


terminal parameter) 


m 3 = 


an arithmetic 


expression (called the 


step-size parameter) 



COMMENTS: The terminal statement must physically follow and be in the 

same program unit as the DC 1 statement. The terminal statement 
may not be any form of a GO TO, an arithmetic IF, a two-branch 
logical IF, a RETURN, STOP, PAUSE, DO or a logical IF statement 
containing any of these statements. 

The initial, terminal and step-size parameters can be any arith- 
metic expressions. However, if these expressions are not of 
type integer, they are converted to integer (by truncation) 
after they are evaluated.. 

If the step-size parameter is omitted (format 2) , a value of +1 
is implied for the step size. 



NOTE: The step-size may be positive or negative, allowing 
either incrementing or decrementing to the terminal 
paiarne t ei value. 



COMMENTS: The range of a DO statement is from (and including) the first 
(cont.) executable statement following the DO to (and including) the 
terminal statement of the DO. 

When the range of one DO statement contains another DO statement, 
the range of the contained DO must be a subset of the range of the 
containing DO. 

Succeeding executions of the DO loop do not cause re-evaluation of 
the initial, terminal or step-size parameters if they are expressions. 
Therefore, any changes made within the DO loop to the values of 
variables occurring in these expressions do not affect the control 
of the loop's execution. Only changes to the control variable 
itself or to step-size parameters (if they are unsigned simple 
integer variables) affect the loop's execution. 



NOTE: A DO statement is executed at least once regardless 
of the relationship of the initial parameter to the 
terminal parameter. 



If a subprogram reference occurs in the range of a DO, the actions 
of that subprogram are considered to be temporarily within that 
range. 

When a statement terminates more than one DO loop, the label 
of that statement may not be used in any GO TO or arithmetic 
IF statement that occurs anywhere but in the range of the 
most deeply nested DO that ends with that terminal statement. 
Integer overflow resulting from arithmetic operations is not 
detected at execution time. 



EXAMPLES: 

DO 51=1,5 



DO 20 1=1,10,2 



DO 20 1=1,10,2 



5 CONTINUE 



DO 20 J=l,5 



DO 15 J=2,5 



20 CONTINUE 



15 CONTINUE 



20 CONTINUE 



The: following occurs when a DO statement is executed: 

a. The control variable is assigned the value represented by the 
initial parameter. The DO loop is executed at least once regard- 
less of the relationship of the initial parameter to the terminal 
parameter value. 

b. The range of the DO is executed. 

c. If control reaches the terminal statement, then after execution 
of the terminal statement, the control variable of the most re- 
cently executed DO statement associated with the terminal state- 
ment is modified by the value represented by the associated step- 
size parameter. 

d. If the value of the control variable (after modification by the 
step-size parameter) has not gone past the value represented by 
the associated terminal parameter, then the action described 
starting as step b. is repeated, with the understanding that the 
range is that of the DO whose control variable has been most re- 
cently modified. If the value of the control variable has gone 
past the value represented by its associated terminal parameter, 
then the DO is said to have been satisfied. 
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At this point, if there were one or more other DO statements 
referring to the terminal statement in question, the control 
variable of the next most recently executed DO statement is 
modified by the value represented by ir.s associated step-size 
parameter and the action in step d. is repeated until all DO 
statements referring to the particular terminal statement are 
satisfied, at which time the first executable statement follow- 
ing the terminal statement is executed. 

Upon exiting from the range of a DO by the execution of a GO TO 
or an arithmetic IF 1 statement (that is, by exiting other than by 
satisfying the DO) , the control variable of the DO is defined 
and is equal to the most recent value attained as defined in 
steps a. through e. 
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END 



PURPOSE: Indicates to the compiler that this is the last statement in a 
program unit. 




COMMENTS: Every program unit must terminate with an END statement. 

The characters E, N and D (once each and in that order in 
columns 7 through 72) can be preceded by, interspersed 
with, or followed by blank characters; column 6 must con- 
tain a blank character. Columns 1 through 5 may contain 
either a statement label or blank characters. 



EXAMPLES: 

END 

__E_N_D 
,J00,END 
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SECTION VII 
INPUT/OUTPUT STATEMENTS 

Input/output statements are executable statements which allow the transfer 
of data records to and from external files and core memory, and the position- 
ing and demarcation of external files. The HP FORTRAN IV input/output state- 



ments are: 



READ (Formatted Records) 

WRITE (Formatted Records) 

READ (Unformatted Records) 

WRITE (Unformatted Records; 

REWIND 

BACKSPACE 

ENDFILE 



NOTE: All external files must be sequential files. 



ID ENTIFYING INPUT/OUTPUT UNITS 

An input or output unit is identified by a logical unit number assigned to 
it by the operating system. (See the RTE, DOS-M, or DOS-Ill manual for a 
description of logical units.) The logical unit reference may be an integer 
constant or an integer variable whose value identifies the unit. Any vari- 
able used to identify an input/output unit must be defined at the time of 
its use. 

I DENTIFYING ARRAY NAMES OR FORMAT STATEMENTS 

The format specifier for a record or records may be an array name or the 
statement label of a FORMAT statement (see Section VIII) . If the format 
specifier is an array name, the first part of the information contained in 
the array must constitute a valid FORMAT specification: a normal FORMAT 
statement less the statement number and the word "FORMAT." 

If the format specifier is a FORMAT statement label, the identified state- 
ment must appear in the same unit as the input or output statement. 
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INPUT/OUTPUT LISTS 

An input list specifies the names of the variables, arrays and array elements 
to which values are assigned on input. An output list specifies the refer- 
ences to variables, arrays, array elements and constants whose values are 
transmitted on output. Input and output lists have the same form, except: 
that a constant is a permissable output list element. List elements consist 
of variable names, array names, array element names and constants (output 
only), separated by commas. The order in which the elements appear in the 
list is the sequence of transmission. 

There are two types of input/output lists in HP FORTRAN IV: simple lists 
and DC-implied lists. 



Simple Lists 

A simple list, n, is a variable name, an array name, an array element name, 
a constant (output only) or two simple lists separated by a comma. It has 
the form: 

n 

n , n 



30- Impli ed Lists 

A DO-implied list contains a simple list followed by a comma and a DO-implied 
specification, all enclosed by parentheses. It has the form: 
(n, i = m , m , m ) 

where 

n == a simple list 

i : == a control variable (a simple integer variable) I ^ a y not 

m == the initial parameter (an integer arithmetic expression) I reference 

m == the terminal parameter (an integer arithmetic expression) I any kind of 

m == the step-size parameter (an integer arithmetic expression)/ function 
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Data defined by the list elements is transmitted starting at the value of 
stl , in increments of m , until m is exceeded. If m is omitted, the step- 
size is assumed to be +1. 



The step-size parameter may be positive or negative, allowing incrementing 
or decrementing to the terminal parameter value. 

The elements of a DO-implied list are specified for each cycle of the 
implied DO loop. 



EXAMPLES 



Simple List 

A,B,C 

READ (5,10)A,B,C 



D O- Implied List 

( (ARRAY (I, J) ,J=1,5) ,1=1,5) 
READ(5,10) ( (ARRAY (I, J 1 , J=l,5) ,1=1,5) 



Note: For output lists, signed or unsigned 
constants are permitted as list 
elements . 



F ORMATTED AND UNFORMATTED RECORDS 

A formatted record consists of a string of the characters that are permissi- 
ble in Hollerith constants. The transfer of such a record requires that a 
format specification be referenced to supply the necessary positioning and 
conversion specifications. The number of records transferred by the exe- 
cution of a formatted READ or WRITE statement is dependent upon the list 
and referenced format specification. 

An unformatted record consists of binary values. 



7-3 



READ 

FORMATTED 

PURPOSE: To read formatted records from an external device into main memory 
or to provide data conversion from ASCII data to numeric data. 



FORMAT: 






























READ 


(u, 


f) 


k 


















READ 


(u, 


*) 


k 










u 


= an 


input unit 


or 


READ (u, 
the label 


f) 
of 


a buff 


er 


holding 


an 


ASCII 


f 


character str 
= an array name 


mg. 
or 


a FORMAT 


statement 


la] 


Del 






k 


= an 


input list 




















* 


= specification 


for free- 


fie 


Id 


input 


no 


format 


statement) 



COMMENTS: The format statement or specification (in an array) can be any- 
where in the program unit. 

If free-field input, is specified, the formatting is directed by 
special characters in the input records; a FORMAT statement or 
specification is not required. 

If data conversion is to be made, a call to the relocatable 
subroutine CODE must precede the READ instruction. 



EXAMPLES 



READ (5,100) (Ail), I == 1, 20) 

READ (5,200) A,L,X 

READ (5,*) (A (J), J=l, 10) 

READ ( 5 , ARRAY ) 

READ (5,100) ( (A(I,J) ,1=1,5) ,J=1,20) 

The following performs a data conversion of the ASCII buffer 
IN and stores the numeric equivalents in variables A,L,X: 

CALL CODE 

READ (IN, 200) A,L,X 
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WRITE 

FORMATTED 

PURPOSE: To write formatted records from main memory to an external device 
or to provide data conversion from numeric data to ASCII data. 



FORMAT: 



WRITE (u,f) k 
WRITE (u,f) 
u = an output unit or the label of a buffer to receive 

the ASCII data string, 
f = an array name or a FORMAT statement label 

k = an output list 



COMMENTS: The format statement or specification (in an array) can be 

anywhere in the program unit. The maximum record size is 67 
elements. 

If data conversion is to be performed, a call to the reloca- 
table subroutine CODE must precede the WRITE instruction. 



EXAMPLES: 



WRITE (2,200) A, L, X 
WRITE (2, ARRAY) 

The following performs a data conversion of variables A,L,X 
and stores the ASCII equivalents in buffer TU : 

CALL CODE 

WRITE (TU,200) A,L,X 
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READ 



UNFORMATTED 



PURPOSE: To read one unformatted record from an external file. 



FORMAT: 

READ (u) k 
READ (u) 

u = an input unit 
k = an input list 



COMMENTS : The sequence of values required by the list may not exceed the 
sequence of values from the unformatted record. 

READ (u) causes a record to be skipped. 

EXAMPLES: 

READ (5) A, L, X 
READ (5) 
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WRITE 

UNFORMATTED 

PURPOSE: To write one unformatted record from core memory to an external 
file. 



: 0RMAT: 

WRITE (u) k 

u = an output unit 
k = an output list 



COMMENTS: This statement transfers the next binary record from core memory 
to unit u from the sequence of values represented by the list k. 
The maximum record size is 60 words. 

EXAMPLES: 

WRITE (2) A, L, X 
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REWIND, BACKSPACE, ENDFILE 



PURPOSE: These statement:, are used for magnetic tape files. REWIND is 
used to rewind a tape to the beginning of tape. BACKSPACE is 
used to backspace a tape file one record. ENDFILE is used to 
write an end-of-file record on a tape file. 



FORMAT: 






REWIND u 
BACKSPACE u 
ENDFILE u 




u = 


= an 


in put /output unit 



COMMENTS: If the magnetic tape unit is at beginning of tape when a REWIND 

or a BACKSPACE statement is executed, the statement has no effect. 



EXAMPLES: 

BACKSPACE 2 
ENDFILE I 
REWIND 5 
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FR EE FIELD INPUT 

By following certain conventions in the preparation of his input data, a HP 
FORTRAN IV programmer can write programs without using an input FORMAT state- 
ment. The programmer uses special characters included within input data 
..terns to direct the formatting of records. 

Data records composed this way are called free field input records, and can 
be used for numeric input data only. Free field input is indicated in a 
formatted READ statement by using an asterisk (*) instead of an array name 
or a FORMAT statement label . 

The special characters used to direct the formatting of free field input 
re: cords are: 

space or , data item del imiters 
/ record terminator 

+ or - sign of item 
.. E + - floating point number 
(a octal integer 

comments 
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? a ta Item Delimiters 

A space or a comma is used to delimit a contiguous string of numeric and 
special formatting characters (called a data item), whose value corresponds 
to a list element. A data item must occur between two commas, a comma and 
a space or between two spaces. (A string of consecutive spaces is equiva- 
lent to one space.) Two consecutive commas indicate that no data item is 
supplied for the corresponding list element, i.e., the current value of the 
list element is unchanged. An initial comma causes the first list element 
to be skipped. 
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EXAMPLES: 

100 READ (5,*) I, J, K, L 200 READ (5,*) I, J, K, L 

Input data items: Input data items: 

1720,1966,1980, 1492 , ,1794,2000 

Result: Result: 

I = 1720 I = 1720 

J = 1966 J = 1966 

K = 1980 K = 1794 

L = 1492 L = 2000 



R ecord Terminator 

A slash within a record causes the next record to be read immediately; the 
remainder of the current record is skipped. 



EXAMPLE: 



READ (5,*) I, J, K, L, M 

Input data items: 

987,654, 321 , 12 3/DESCENDING 

456 

Result: 
I = 987 
J = 654 
K = 321 
L = 123 
M = 456 



NOTE: If the input list requires more than one 
external input record, a slash (/) is 
required to terminate each of the input 
records except the last one. 
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Siqn of Data Item 

Data items may be signed. If they are not signed, they are assumed to be 

oositive. 



FJ oating Point Number Dat a Item 

A floating point data item is represented in the same form as E-TYPE con- 
version of an external real number on input. (See Election VIII.) It the 
decimal point is not present, it is assumed to follow the last digit of 
the number. 



Oc tal Data Item 

The symbol @ is used to indicate an octal data item. list elements 

corresponding to the octal items must be type integer. 



EXAMPLE: 



READ (5,*) I, J, K 

Input Data Items: 
0177777, 00, 05555 

Result: 

I = 177777B 

J = 

K = 5555B 
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Comme nt Del i miters 

Quotation marks ("...") are used to bound comments; characters appearing 
between quotation marks are ignored. 



EXAMPLE: 

READ (5,*) I, J,. K, L 

Input Data Items: 

123, 456, "ASCENDING" 123, 456 

Result: 
I = 123 
J = 456 
K = 12 3 
L = 456 
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SECTION VIII 
THE FORMAT STATEMENT 

There are three ways a user can transfer data records to and from core 
memory using READ and WRITE statements (described in Section VII) . 

a. As "free field input" when the input data itself contains 
special characters that direct the formatting of the records 
in core memory. (See "Free Field Input.") 

b. As unformatted input or output records containing strings of 
binary values. (See "READ (Unformatted)" and "WRITE 

(Unformatted) . ") 

c. As formatted input or output records. (See "READ (Formatted)" 
and "WRITE (Formatted).") 

When a formatted READ or WRITE statement is executed, the actual number of 
records transferred depends upon: 

a. The elements of an input/output list (if present) , which 
specify the data items involved in the transfer, and 

b. A format specification for the list element(s), which 
defines the positioning and conversion codes used for the 
string of characters in a record. 

A format specification for a formatted READ or a formatted WRITE list 
element can be defined in either: 

a. A FORMAT statement, or 

b. An array, the first elements of which contain a valid format 
specification constructed according to the rules of a FORMAT 
statement (minus the FORMAT statement label and the "FORMAT"). 

The FORMAT statement and its components are described in the following 
pages. 
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FORMAT 



PURPOSE: The FORMAT statement is a non-executable statement that provides 
format control for data records being transferred to and from 
core memory by defining a format specification for each record. 



FORMAT: 



label FORMAT (q t z t z 



Vn t n + i q 2 ) 



label = a statement label. 



g = a series of slashes (optional) 

t = a field descriptor, or a group of field descriptors 

z = a field separator 



COMMENTS: A FORMAT statement must be labeled. 

When a formatted READ statement is executed, one record is read 
when format control is initiated; thereafter, additional records 
are read only as the format specif ication (s) demand. When a for- 
matted WRITE statement is executed, one record is written each 
time a format specification demands that a new record be started. 



EXAMPLES: 



READ (5,100) A, B,C 



WRITE(2,200)A,L,X 



100 FORMAT (2F5.1, F6.2) 



200 FORMAT (F5.1, 113, F6.4) 



The components of a format specification (field separators, field descriptors, 
scale factor, repeat specification and conversion codes) are described in 
the following pages. 
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FIELD DESCRIPTOR 



PURPOSE: To provide the elements that define the type, magnitude and 
method of conversion and editing between input and output. 



FORMAT: One of the following conversion and editing codes: 



Integer data: 


rlw 




Octal 


data: 


r@w 




Real data: 


srEw.d 
s rFw . d 








rKw 
rOw 






srGw.d 




Hollerith 






Double pre- 
cision data: 


srDw. d 




data: 




rAw 
rRw 




Logical data: 


rLw 








wHh h . . 


. h 

w 


Blank data : 


WX 








r( " h l h 2 • 


.. h ") 
w 


Complex data: 


sEw. d, Ew 


d 











w = a positive integer constant, representing the length of 
the field in the external character string. 

s = a scale factor designator (optional for real and double 
precision type conversions). 

r = a repeat specification, an optional positive integer 
constant indicating the number of times to repeat the 
succeeding field descriptor or group of field descriptors. 

h = any character in the FORTRAN character set. 

d = an non-negative integer constant representing the number 
of digits in the fractional part of the external charac- 
ter string (except for G-type conversion codes) . 

. = a decimal point. 

The characters F, E, G, I, @, K, 0, L, A, R, H, ", and X 
indicate the manner of conversion and editing between the 
internal and external character representations, and are 
called the conversion codes. 
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COMMENTS: For all field descriptors, except "h b, ... h " the field length 

12 w 

(w) must be specified, and must be greater than or equal to d. 

For field descriptors of the form w.d, the d must be specified, 
even if it is zero. 

A basic field descriptor is a field descriptor unmodified by the 
scale factor (s) or the repeat specification (r) . 

The internal representation of external fields corresponds to the 
internal representation of the corresponding data type constants. 

A numeric input field of all blanks is treated as the number zero. 

The use of a decimal point in the input data field overrides the 
d portion of a floating point conversion format. 

Negative numbers are output with a minus sign. 

If the output field is larger than that required by the datum 
being written, the datum is right- justified in the output field. 

The number of characters produced by an output conversion must 
not exceed the field width (w) . If the characters produced do 
exceed the field width, the field is filled with the currency 
symbol $. 



EXAMPLES: 



2110 2@2 

E20.10 2K2 

F5.1 202 

G20.10 2A2 

D10.2 2R2 

E10.4, E10.4 2HAB 

2X "ABCD' 
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REPEAT SPECIFICATION 



PURPOSE: Allows repetition of field descriptors through the use of a 
repeat count preceding the descriptor. The specified con- 
version is interpreted repetitively, up -,o the specified 
number of times. 



FORMAT: 








:r 


(basic field descriptor) 


r = 


an integer 


constant, called the group repeat count. 



COMMENTS: All basic field descriptors may have group repeat counts, 
except these codes: wH or wX. 

A further grouping may be formed by enclosing field descriptors, 
field separators, or basic groups within parentheses, and by 
specifying a group repeat count for the group. The depth of 
this grouping is limited to the fourth level. 

The parentheses enclosing the format specification are not 
group deliniating parentheses. 



example:: 



:,:> : 



2110 
6E14.6 

4(E1Q.4, E10.4) 
3/ 
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I-TYPE CONVERSION 

INTEGER NUMBERS 

PURPOSE: Provides conversion between an internal integer number and an 
external integer number. 



FORMAT: 

r I w 

r = a repeat specification (optional) 
w = length of external field 



COMMENTS: 

Input: The external input field contains a character string 

in the form of an integer constant or a signed integer 
constant. Blank characters are treated as zeros. 

Output: The external output field consists of blanks, if 
necessary, a minus (if the value of the internal 
datum is negative) , and the magnitude of the internal 
value converted to an integer constant, right- 
justified in the field. 

If the output field is too short, the field is 
filled with the currency symbol $. 



EXAMPLES: 



See the next page. 
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EXAMPLES: (Cont.) 

INPUT : 



External Field 


Format 


-.123 




15 


12003 




15 


,102 




14 


3 




11 


OUTPUT : 






Internal 


Number 


Format 


-1234 




15 


+12345 




15 


+12345 




14 


+12345 




16 



Internal Numbe r 
-123 
12003 
102 
3 



External Field 
-1234 

12345 

$$$$ 

.12345 



SCALE FACTOR 



PURPOSE: Provides a means of normalizing the number and exponent parts of 
real or double precision numbers specified in a FORMAT statement 



FORMAT: 



nP 



n = an integer constant or a minus sign followed by 

an integer constant. 
P = the scale factor indicator, the character p 



COMMENTS: When format control is initialized, a scale factor of zero is 
established. Once a scale factor has been established, it 
applies to all subsequent real and double precision conversions 
until another scale factor is encountered. 



Input : 



When there is no exponent in the external field, the relation- 
ship between the externally represented number (E) and the 
internally represented number (I) is this: 

I = E * 10 _n 

When there is an exponent in the external field, the scale 
factor has no effect. 



Output: For E- and D- type output, the basic real constant part (I) of 
the output quantity is multiplied by 10 and the exponent is 
reduced by n. For G-type output, the effect of the scale factor 
is suspended unless the magnitude of the datum to be converted 
is outside the range that permits effective F-type conversion. 

EXAMPLES: 



See the next page. 



EXAMPLES: 



(Cont.) 






INPUT: 






External Field 


Format 


Internal Number 


528.6 


1PF10. 3 


52.86 


. 5286E+03 


1PG10.3 


528.6 


528.6 


-2PD10.3 


52860. 


OUTPUT : 






Internal Number 


Format 


External Field 


528.6 


1PF8.2 


.5286.00 


.5286 


2PE10.4 


52.860E-02 


5.286 


-1PD10.4 


..0529D+02 


52.86 


1PG10.3 


_52.9„_ 


-5286. 


1PG10 . 3 


-5.286E+03 
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E-TYPE CONVERSION 

REAL NUMBERS 

PURPOSE: Provides conversion between an internal real number and an 
external floating-point number. 



FORMAT: 






s r E w. d 


s = 


a scale factor (optional) 


r = 


a repeat specification (optional) 


w = 


the length of the external field 


. = 


the decimal point 


d = 


the total number of digits to the right of the 




decimal point in the external field. 



COMMENTS: 



Input: The external input field may contain an optional sign,, 
followed by a string of digits optionally containing 
a decimal point, followed by an exponent, in one of 
the following forms: a signed integer constant; or 
E followed by an integer constant or a signed integer 
constant. 



Output: The external output field may contain a minus sign (or 
a blank, if the number is positive), a zero, a decimal 
point, the most significant rounded digits of the internal 
value, the letter E and a decimal exponent (which is 
signed if it is negative) . 



EXAMPLES: 



See the next page. 
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EXAMPLES: 



(Cont.) 

INPUT: 

External Fiel d 
123.456E6 
.456E6 
.456 
123E6 
123 
E6 



Format 


E9. 


3 


E6. 


i^ 


E4. 


3 


E5. 





E3. 


1 


E9. 


3 


E9. 


.3 



Internal Number 
123456000 

456000 

.456 

12 3000000 

12.3 






OUTPUT : 






Internal 


Number 


Format 


+12.34 




E10.3 


-12.34 




E10.3 


+12.34 




E12.4 


-12.34 




E12.4 


+12.34 




E7. 3 


+12.34 




E5.1 



External Field 
_.123E+02 
.-.123E+02 

1234E+02 

,„-.12 34E+02 

.12E+02 

$$$$$ 
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IF TYPE CONVERSION 

REAL NUMBERS 

D URP0SE: Provides conversion between an internal reeil number and an 
externa], fixed-point number. 





FORMAT: 


s r F w . d 




s = 


a scale factor (optional) 




r = 


a repeat specification (optional) 




w = 


the length of the external field 




. = 


the decimal point 




d = 


the total number of digits to the right, of the 






decimal point in the external field 



COMMENTS: 



EXAMPLES: 



Input: The external input field is the same as for E-TYPE 
conversion. 

Output: The external output field may contain blanks, a minus 

(if the internal value is negative) , a string of digits 
containing a decimal point (as modified by the scale 
factor) rounded to d fractional digits. 



See the next page. 
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IXAMPLES: (Cont.) 



INPUT: Same as in E-TYPE conversion, except "F" replaces "E' 

in the format specification. 

OUTPUT : 

Internal Numbe r Format External Field 

+12.34 F10..3 ,_12.340 

-12.34 F10.3 _-12.340 

+ 12.34 F12..3 __12.340 

-12.34 F12.3 __-12.340 

+12.34 F4.3 12.3 

+12345.12 F4.3 $$$$ 
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G-TYPE CONVERSION 

REAL NUMBERS 

PURPOSE: Provides conversion between an internal real number and an 
external floating-point or fixed-point number. 



FORMAT: 






s r G w . d 


s = 


a scale factor (optional) 


r = 


a repeat specification (optional) 


w = 


the length of the external field 


. = 


the decimal point 


d = 


the total number of digits to the right of the 




decimal point in the external, field. 



COMMENTS: 

Input: 

Output: 



The external input field is the same as for E-TYPE conversion. 

The external output field depends upon the magnitude of the 
real data being converted, and follows these rules: 



Magnitude Of Data 

0.1 < N <1 
1 <N <10 



Equivalent Con version 

F(w-4) . d,4X 

F (w-4) . (d-1) ,4X 



10 d " 2 < N < lO*" 1 



10 d_1 < N < 10 d 



otheirwise 



F(w-4) . 1,4X 

F(w-4) . 0,4X 
SEw.d 



EXAMPLES: 



See the next page 
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EXAMPLES: (Cont.) 



INPUT: Same as for E-TYPE conversion, except 

that "G" replaces "E" in the format specification. 



OUTPUT : 
Format 

G10.3 



Internal Number 
.0 52 34 
.5234 
52.34 
523.4 
5234. 



E xternal Field 
„, . 52 3E-01 

„,. .523, 

, ,52 . 3„ ,^ „ 
_523.„_ 
523E+04 
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D-TYPE CONVERSION 

DOUBLE PRECISION NUME3ERS 

PURPOSE : Provides conversion between an internal double precision nurnbe 
and an external floating-point number. 



FORMAT: 


s r D w . d 




s = 


a scale factor (optional) 




r = 


a repeat specification (optional! 




w = 


the length of the external field 




. = 


the decimal point 




d = 


the total number of digits to the right 
decimal point in the external field. 


o f the 



COMMENTS: 

Input: The external input field is the same as for E-TYP: 



conversion. 



Output: The external output field is the same as for E-TYPE 
conversion, except that the character D replaces the 
character E in the exponent. 



EXAMPLES: 

INPUT: Same as in E-TYPE conversion except "D" replaces "E." 
OUTPUT: Same as in E-TYPE conversion except "D" replaces "E." 
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COMPLEX CONVERSION 

COMPLEX NUMBERS 



PURPOSE: Provides conversion between an internal ordered pair of real 
numbers and an external complex number. 



FORMAT: 


















A complex 


datum cc 


insists of 


a 


pair o 


f separate 


real 


data. 


The total 


conversion is 


specii 


:ied by 


two reial 


field 


de- 


scriptors 


, interp 


re ted 


success 


;ively . 


The firs 


t descriptor 


supplies 


the real 


part 


the 


second, 


the imaginary part. 



COMMENTS: 



Input: Same as for any pair of real data. 
Output: Same as for any pair of real data. 



EXAMPLES: 

See E- , F- and G-TYPE conversions. 



8-17 



L-TYPE CONVERSION 



LOGICAL NUMBERS 



PURPOSE: Provides conversion between an external field representing a 
logical value and an internal logical datum. 



FORMAT: 



L w 



w = the length of the external field. 



COMMENTS: 



Input: The external input field consists of optional blanks 

followed by a T or an F followed by optional characters, 
representing the values true or false, respectively. 

Output: The external output field consists of w - 1 blanks 

followed by a T or an F as the value of the internal 
logical datum is true or false, respectively. 



EXAMPLES 



INPUT : 






External Field 




Format 


„ TRUE 




L5 


„ F 




L6 


OUTPUT : 






Internal Number 




Format 


(or posit 


ive) 


L3 


(negative:) 




LI 



Internal Numbe r 
100000B 




External Field 
, „F 

T 



@-TYPE, K-TYPE AND O-TYIPE CONVERSIONS 

OCTAL NUMBERS 

PURPOSE: Provides conversion between an external octal number and an 
internal octal, datum. 



FORMAT: 

r @ w 

r K w 

r w 
r = a repeat specification (optional) 
w = the width of the external field in octal digits. 



COMMENTS: List elements must be of type integer. 

Input: If w > 6, up to six octal digits are stored; non-octal digits 

are ignored. If the value of the octal digits within the field 
is greater than 177777, results are unpredictable. If w < 6 or 
if less than six octal digits are encountered in the field, the 
number is right- justified with zeros to the left. 

Output: If w > 6, six octal digits are written ri.ght-justif ied in the 

field with blanks to the left. If w < 6, the w least significant 
octal digits are written. 



EXAMPLES: 



See the next page. 
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EXAMPLES: 


(Cont.) 

INPUT: 






External Field 


Format 




123456 


9 6 




-123456 


07 




2342342342 


2K5 




, 396E-05 


2@4 




OUTPUT : 






Internal Number 


Format 




99 


K6 




99 


02 




-1 


a 8 




32767 


@6 



In ternal Numbe r 

123456 

123456 

023423 and 042342 

000036 and 000005 



External Field 
_143 
43 

_177777 
.77777 
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A-TYPE CONVERSION 



HOLLERITH INFORMATION 



PURPOSE: Allows a specified number of Hollerith characters to be read 
into, or written from, a specified list element. 



FORMAT: 


r A w 




r = 


a repeat specification, (optional! 




w = 


the length of the Hollerith character 


s tr in g . 



COMMENTS: 



EXAMPLES: 



Input: If w 2, the rightmost two characters are taken from 
the external input field. If w = 1, the character 
appears left- justified in the word, with a trailing 
blank. 

Output: If w - 2, the external output field consists of w - 2 
blanks, followed by two characters from the internal 
representation. If w = 1, the character in the left 
half of the word is written. 



See the next pagt 



NOTE: Input/output of A- format elements must be 
to/ from type integer variables or arrays. 
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XAMPLES: 


(Cont.) 

INPUT: 






External Field 


Format 




XYZ 


A2 




XYZ 


A3 




X 


Al 



I nternal Val ue 
XY 
YZ 
X. 



OUTPUT : 








Internal 


Val 


ue 


Format 


XY 






A2 


XY 






A4 


XY 






Al 



External Field 



XY 



.XY 
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R-TYPE CONVERSION 



HOLLERITH INFORMATION 



PURPOSE: Allows a specified number of Hollerith characters to be read 
into, or written from, a specified list element. 



FORMAT: 



r R w 



r 

w 



a repeat specification (optional) 

the length of the Hollerith character string. 



COMMENTS: The Rw descriptor is equivalent to the Aw descriptor, except 
that single characters are right- justified in the word with 
leading binary zeros (on input); and on output, if w = 1, 
the character ir. the right half of the word is written. 



NOTE: 


The HP FORTRAN conversion Aw is replaced by the HP 




FORTRAN IV conversion Rw: a single character 




stored in a word under R format control is placed 




in the right half of the word with zeroes to the 




left half. On output, using the Rw format, the 




right half of the word is written. 



EXAMPLES: 



See the next page. 



NOTE: The FORTRAN IV program can be modified at run-time 
to interpret A as in HP FORTRAN if the user calls 
the OLDIO entry point: 

CALL OLDIO 

To change back to a HP FORTRAN IV A conversion, 
the user calls the NEWIO entry point: 

CALL NEWIO 
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EXAMPLES: 


(Cont.) 

INPUT : 








External 


Field 


Format 




XYZ 




R2 




XYZ 




R3 




X 




:ri 




OUTPUT: 








Internal 


Value 


Format 




XY 




R2 




XY 




R4 




XY 




Rl 



I nternal Val ue 
XY 
YZ 

OX 



External Fie ld 
XY 
„„XY 

Y 



8-24 



ujH editing 

HOLLERITH INFORMATION 

PURPOSE: Allows Hollerith information to be read into, or written from, 
the characters following the wH descriptor in a format specifi- 
cation . 



FORMAT: 


w H h ± h 2 .... h w 




w = 


a nonzero positive integer constant equal to the total 
number of h' s 




h = 


any character in the HP ASCII character set. 





COMMENTS: 



Input: The characters in the external field (h to h^ ) replace 

the characters in the field specification. 

Output: The characters in the field specification are written 
to an output file. 



EXAMPLES: 



INPUT : 

External Fiel d 
PACKARD 



Format 



7HHEWLETT 



Resulting Internal Value 
of Formatted Item 

7HPACKARD 



OUTPUT : 



Format 



7HPACKARD 



External Field 



PACKARD 
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"..." EDITING 

HOLLERITH INFORMATION 

PURPOSE: Allows Hollerith information to be written from the characters 
enclosed by the quotation marks in a format specification. 



FORMAT: 



r( " h i h 2 ••• h w H) 



h = any character in the FORTRAN character set, 
except " 

r = a repeat count. 



COMMENTS: Input: The number of characters within the quotation 

marks is skipped (equivalent to wX) . 

Output: Is equivalent to wH , with a repeat specification 
capability added. 



EXAMPLES: 

OUTPUT : 

Format External Field 

"ABZ" ABZ 

it M 

2"***" ****** 
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X-TYPE CONVERSION 

SKIP OR BLANKS 

PURPOSE: Allows a specified number of characters to be skipped (input) 
or allows a specified number of blanks to be inserted (output! 



FORMAT: 

w X 
w = a positive integer constant 



COMMENTS: 

Input: In the external input field, w characters are skipped. 

Output: In the external output field, w blanks are inserted. 



EXAMPLES: 

14X 
2X 
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FIELD SEPARATOR 



PURPOSE: To separate each field descriptor, or group of field descriptors 
in a FORMAT statement. 



FORMAT: 



/ or , 



COMMENTS: A repeat count can be specified immediately preceding the slash 
(/) field separator. Each slash terminates a record. A series 
of slashes causes records to be skipped on input, or lines to 
be skipped on an output listing. 



EXAMPLES: 

READ (5,100)A,B 

100 FORMAT (F5.1,F7.3) 

READ (5,101)A,B 

101 FORMAT (F5.1/F7.3) 



READ (5,102)A,B 
102 FORMAT (//F5 . 1///F7 . 3/) ' 



WRITE (6,100)A,B 



WRITE (6,101)A,B 



WRITE (6, 102) A, B 



Causes A and B to be read from one record. 



) Causes A and B t 
J consecutive reco 



o be read from two 
rds . 



Causes two records to be skipped, A to be 
read from the third record, two more 

(records to be skipped, B to be read from 
the sixth record and one additional record 
to be skipped. 

i Causes A and B to be printed on the same 
J line. 

j Causes A and B to be printed on two con- 
) secutive lines . 

Causes two lines to be skipped, A to be 
printed on the third line, two more lines 
to be skipped, B to be printed on the 
sixth line and one more additional line 
to be skipped. 
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CARRIAGE CONTROL 



PURPOSE: To indicate the line spacing used when printing an output 
record on a line printer or a teleprinter. 



FORMAT : 





1 



as the first character in the record 



any other character 

„ = single space (print on every line) . 

= double space (print on every other line). 

1 = eject page 

* = suppress spacing (overprint current line) . 

any other character = single space (print on every line) . 



EXAMPLES 



c: . 



When these records are printed.. . . 

100 FORMAT (".PRINT ON EVERY LINE") 

120 FORMAT ("OPRINT ON EVERY OTHER LINE") 

140 FORMAT ("1") 

160 FORMAT ("*PRINT ON CURRENT LINE") 

180 FORMAT ("PRINT ON EVERY LINE") 

999 FORMAT (1H1, E16.8, 15) 



they look like this : 

PRINT ON EVERY LINE 

PRINT ON EVERY OTHER LINE 

(a page is ejected, then a 
line is skipped) 

(an overprint of current line 

PRINT ON EVERY LINE 

(a page, is ejected, and a 

floating point number and an 

integer are then printed.) 
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SECTION IX 
FUNCTIONS AND SUBROUTINES 



An executable FORTRAN IV program consists of one main program with or with- 
out subprograms. Subprograms, which are either functions or subroutines, 
are sets of statements that may be written and compiled separately from the 
main program. 

A main program calls or references subprograms; subprograms can call or 
reference other subprograms as long as the calls are non-recursive. That is 
if subprogram A calls subprogram B, subprogram B may not call subprogram A. 
Furthermore, a program or subprogram may not call itself. A calling program 
is a main program or subprogram that refers to another subprogram. 

Main programs and subprograms communicate by means of arguments (parameters) 
The arquments appearing in a call or a reference are called actual argu- 
ments. The corresponding parameters appearing within the called or refer- 
enced definition are called dummy arguments. 



F U NCTIONS 

If the value of one quantity depends on the value of another quantity, 
then it is a function of that quantity. Quantities that determine the 
value of the function are called the actual arguments of the function. 

In HP FORTRAN IV, there are three types of functions (collectively called 
function procedures) ; they supply a value to be used at the point of refer- 
ence. 

a. A statement function is defined and referenced internally in 
a program unit. 

b. A FORTRAN IV library function is processor-defined externally 

to the program unit that references it. The FORTRAN IV functions 
are stored on an external disc or tape file. 
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c. A function subprogram is user-defined externally to the program 
unit that references it. The user compiles function subprograms, 
loads them with his calling program unit and references them the 
same way he references FORTRAN IV library functions. 



SUB ROUTIN ES 

The HP FORTRAN IV user can compile a program unit: and store the resultant: 
object program in an external file. If the program unit begins with a 
SUBROUTINE statement and contains a RETURN statement, it can be called as 
a subroutine by another program unit. 



DAT A TYPES FOR FUNCTIONS AND SUBROUTINES 

All functions are identified by symbolic names. 

A symbolic name that identifies a statement function may have its data type 
specified in a TYPE- statement. In the absence of an explicit declaration 
in a TYPE- statement, the type is implied by the first character of the name: 

I, J, K, L, M or N = integer type data 
any other letter = real type data 

h symbolic name that identifies a FORTRAN IV function has a predefined data 
type associated with it, as explained in Table 9-1. 

A symbolic name that identifies a function subprogram may have its data type 
specified in the FUNCTION statement that begins *:ne subprogram. In the ab- 
sence of an explicit declaration in the FUNCTION statement, the data type is 
implied by the first character of the name, as for statement functions. A 
function subprogram which has beer: explicitly typed in its FUNCTION statement 
must also have its name identically typed in each program unit which calls it. 

The symbolic names which identify subroutines are not associated with any 
data type. 
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DUMMY ARGUMENTS 

Dummy arguments are identified by symbolic name. They are used in functions 
and subroutines to identify variables, arrays, other subroutines or other 
function subprograms. The dummy arguments indicate the type, order and 
number of the actual arguments upon which the value cf the function depends. 

When a variable or an array reference is specified by symbolic name, a dummy 
argument can be used, providing a value of the same type is made available 
through argument association. 

When a subroutine reference is specified by the symbolic name, a dummy argu- 
ment can be used if a subroutine name is associated with that dummy argument. 

When a function subprogram reference is specified by symbolic name, a dummy 
argument can be used if a function subprogram name is associated with that 
dummy argument. 
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STATEMENT FUNCTION 



PURPOSE: To define a user-specified function in a program unit for later 
reference in that program unit. 



FORMAT: 


f ( a. , a. . . . , a ) = e 
12 n 




f = 


the user-specified function name, a 


symbolic name 


a = 


a distinct variable name (the dummy 
function) 


arguments of the 


e = 


an arithmetic or logical expression 





COMMENTS: The statement function is referenced by using its symbolic name, 
with an actual argument list, in an arithmetic or logical ex- 
pression. 

In a given program unit, all statement function definitions must 
precede the first executable statement of the program unit and 
must follow any specification statements used in the program 
unit. 

The name of a statement function must not be a variable name or 
an array name in the same program unit. 



EXAMPLES 



ISUM(I,J,K) = I+J+K 

ff 
R00T1(A,B,C) = (-B+SQRT(B**2-4.0*A*C) )/(2.0*A) 

L = ISUM(M**2,i,M~l) 

// 
R = R00T1 (X,Y,Z) 
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Defining Statement Functio ns 

The names of dummy arguments may be identical to variable names of the same 
type that appear elsewhere in the program unit, since they bear no relation 
to the variable names. 

The dummy arguments must be simple variables; they represent the values 
passed to the statement function. These values are used in an expression 
to evaluate the user-specified function. Dummy arguments cannot be used to 
represent array elements or function subprograms. 

Aside from the dummy arguments, the expression may contain only these values: 

Constants 

Variable references (both simple and subscripted) 
FORTRAN IV library function references 
External function references 

References to previously-defined statement functions in the 
same program 



R eferencing Statement Functions 

When referenced, the symbolic name of the statement function must be immedi- 
ately followed by an actual argument list. 

The actual arguments constituting the argument list must agree in order, 
number and type with the corresponding dummy arguments. An actual argument 
in a statement function reference may be an expression of the same type as 
the corresponding dummy argument. 

When a statement function reference is executed, the actual argument values 
are associated with the corresponding dummy arguments in the statement 
function definition and the expression is evaluated. Following this, the 
resultant value is made available to the expression that contained the state- 
ment function reference. 
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FORTRAN IV LIBRARY FUNCTION 



PURPOSE: To reference a processor-defined function by specifying its sym- 
bolic name in dan arithmetic or logical expression. The value is 
made available at the point of reference. 



FORMAT: 






An arithmetic or logical expression that 




contains the symbolic name of the FORTRAN 




IV function (together with an actual argument list) 




as a primary. 



COMMENTS: Table 9-1 contains the FORTRAN IV library functions available 
with the HP FORTRAN IV Compiler. 



The symbolic name for the function cannct appear in a TYPE- state 
ment which defines the name as a data type different from that: 
specified for the function in Table 9-1 unless the user supplies 
his own version of the FORTRAN IV library function. 



NOTE: HP FORTRAN IV makes no distinction between "intrinsic" 
and "external" functions. 



EXAMPLES: 



x = sin(y) 

I = IFIX(X) 
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TABLE 9-1 
FORTRAN IV LIBRARY FUNCTIONS 









Number of 


Symbolic 


Type 


of : 


FORTRAN IV Function 




Definition 


Arguments 


>iame 


Argument 


Function 


Absolute Value 


- 




1 


ABS 

IABS 

DABS 


Real 

Integer 

Double 


Reai + 

Intecert 

Double 


Truncation 


S i g: 


i of a times 


1 


A INT 


Real 


Realt 




lar 


jest integer 




INT 


Real 


Intecer-f 




- 


X 




I DINT 


Double 


Integer 


Rema i r. de r :L n g * 


a , 


'mod a.,) 


2 


AMOD 

MOD 


Real 
Integer 


Real* 
Integer* 


Choosing Largest Value 


Max 


i a , , a , , . . . ) 

L 2 




AMAX0 

AMAX1 
MAX0 
MAXl 
DMAXI 


Integer 

Real 

Integer 

Real 

Double 


Real 

Real 

Integer 

Integer 

Double 


Choosing Smallest Value 


Min 


(a, , a , . . . ) 


■2 


AMIN0 
AM INI 
MIN|2 
MINI 
□MINI 


Integer 

Real 

Integer 

Real 

Double 


Real 
Real 
Integer 
Integer 
Do ub 1 e 


Float 


Con 
inti 


version from 
;ger to real 


1 


FLOAT 


Integer 


Real- 1 


Fix 


Con- 
re a 


'ersion from 
. to integer 


i 


IFIX 


Real 


Integer-*- 


Transfer of Sign 


Sig; 


i of a times 


2 


SIGN 


Real 


Real + 




a 


.' 




I SIGN 
DSIGN 


Integer 
Double 


Integert 
Double 


Positive Difference 


a i ' 


Mi n t a , a „ ) 

i z 


2 


DIM 
I DIM 


Real 
Integer 


Real 
Integer 


Obtain Most Significant 






i 


SNGL 


Double 


Real 


Part of Double Precision 














Argument 














Obtain Real Part of Complex 






1 


REAL 


Complex 


Real 


Argument 














Obtain Imaginary Part of 






1 


AIMAG 


Complex 


Real 


Complex Argument 














Express Single Precision 






1 


DBLE 


Real 


Double 


Argument in Double 














Precision Form 
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TABLE 9-1 (cont.) 
FORTRAN IV L [BRARY FUNCTIONS 



FORTRAN IV Function 



Express Two Real Arguments 
;..n Complex F'orm 

Obtain Conjugate of a 
Complex Argument 

Exponential 

Natural Logarithm 

Common Logarithm 
Trigonometric Sine 

Trigonometric Cosine 

Trigonometric Tangent 
Hyperbolic Tangent 
Square Root 

Arctangent 



Remaindering* 

Modulus 

Logical Product 

Logical Sum 

Complement 

Sense Switch Register 
Switch (n: 



Definition 



log (a) 



log, _ (a) 



tan (a) 
tanh (a) 
(a) J/2 

arctan (a) 



a::ctan(a /a i 
I 2 



a Pxiod a„) 



i-j 



Number of 
Arguements 



Symbolic 

I, ame 



CMPLX 



Type of: 
Argument Function 



Real 



Real 



Comp'lex 



Complex Complex 



1 


EXP 


Real 


Real + 


1 


DEXP 


Double 


Doublet 


1 


;.:exp 


Complex 


ComplexH 


1 


alog 


Real 


Real+ 


1 


ULOG 


Double 


Doublet 


i 


CLOG 


Complex 


Complex-t 


1 


ALOGT 


Real 


Rt al + 




DLOGT 


Double 


Double* 


1 


3 IN 


Real 


Re a 1 + 


1 


as IN 


Double 


Double 


1 


CSIN 


Complex 


Complex^ 


i 


COS 


Real 


Re ai + 


1 


DCOS 


Double 


Double 


1 


ccos 


Complex 


ComplexH 


1 


TAN 


Real 


Re alt 



Reai + 



1 


SQRT 


Real 


Real + 


1 


DSQRT 


Double 


Dcuble + 


1 


CSQRT 


Complex 


Complex 


1 


AT Ml 


Real 


Real + 


1 


DATAN 


Double 


Double 


2 


AT AN 2 


Real 


Real 


2 


DATN2 


Double 


Double 


2 


DMOD 


Double 


Double* 


1 


CABS 


Complex 


Real 


2 


.LAND 


Integer 


In teger+ 


2 


IOR 


Integer 


Integers 


1 


MOT 


Integer 


Integers 


1 


rssw 


Integer 


Integer 4 
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* The functions MOD, AMOD and DMOD are defined as a -[a /a ]a 

where [X] is the largest integer whose magnitude does not exceed 
the magnitude of X and whose sign is the same as the sign of X. 

+ These FORTRAN IV functions have different entry points when 
called by value and called by name. See the Relocatable 
Subroutines manual for a complete description of each entry 
point. 
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FUNCTION SUBPROGRAM 



PURPOSE : To define a user-specified subprogram that supplies a function 
value when its symbolic name is used as a. reference. 



FORMAT: 


t FUNCTION f (a_ , a„, ..., a ) 
12 n 




t = 


omitted, or one of the following data type 
REAL 


identifiers 




INTEGER 






DOUBLE PRECISION 






COMPLEX 
LOGICAL 




f = 


the symbolic name of the function 




a = 


a dummy argument. 





COMMENTS: The FUNCTION statement must be the first statement of a function 
subprogram. A function subprogram is referenced by using its 
symbolic name (together with an actual argument list) as a prim- 
ary in an arithmetic or logical expressicn in another program unit. 
A function subprogram may not be called recursively. 

EXAMPLES: 

VAR = USERl (X,Y,Z)**USER2 (X,Y) REAL FUNCTION USER1(A,B,C) 

USERl = A+E/C 

RETURN 

END 

REAL FUNCTION USER2(VARRl, VARR2) 

USER2 = VARR1-VARR2 

RETURN 

END 
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Definin g Function Subprog rams 

The symbolic name of the function subprogram must also appear as a variable 
name in the defining subprogram. During every execution of the subprogram!, 
this variable must be defined, and, once defined, may be referenced or re- 
defined. The value of the variable at the time of execution of any RETURN 
statement in this subprogram is called the value of the function. 

The symbolic name of the function subprogram must net appear in any non- 
executable statement in this program unit, except as a symbolic name of the 
function subprogram in the FUNCTION statement. 

The symbolic names of the dummy arguments may not appear in an EQUIVALENCE, 
COMMON or DATA statement in the function subprogram. 

A dummy parameter can be used to dimension an array name, which also appears 
as a dummy parameter of the function. An array which is declared with dummy 
dimensions in a function must correspond to an array which is declared with 
constant dimensions (through some sequence of argument association) in a 
calling program unit. An array declared with dummy dimensions may not be 
in COMMON. 

The symbolic name of a dummy argument may represent a variable, array, a 
subroutine or another function subprogram. 

The function subprogram nay contain any statements except PROGRAM, SUBROUTINE, 
another FUNCTION statement, or any statement that directly or indirectly 
references the function being defined. 

The function subprogram nay define or redefine one or more of its arguments 
to return results as well as the value of the function. Therefore, the user 
must be aware of this when writing his programs. For example, a function 
subprogram that defines the value of GAMMA as well as finding the value of 
ZETA could be coded: 
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FUNCTION ZETA (BETA, DELTA, GAMMA) 

A = BETA** 2 - DELTA** 3 

GAMMA = A* 5. 2 

ZETA = GAMMA* *2 

RETURN 

END 

Then, a program referencing the function could be: 

GAMMB = 5.0 

RSLT = GAMMB+7.5 -t- ZETA ( . 2 , . 3 , GAMMB) 

which results in the following calculation: 

RSLT = 5.0 + 7.5 + ZETA, where ZETA is determined as: 

A = .2**2 - .3**3 = .04 - .027 = .013 

GAMMA = .013*5.2 = .0676 [GAMMB is not altered) 

ZETA = .0676**2 = .00456976 

RSLT = 5.0 + 7.5 + .0046976 = 12.504 56976 

However, the program: 

GAMMB = 5.0 

RSLT = ZETA ( . 2 , . 3 , GAMMB) + 7. 5 + GAMMB 

would result, in the following calculations for ZETA and GAMMB: 

A = .2**2 - .3**3 = .04 - .027 = .013 
GAMMA = .013*5.2 = .0676 = GAMMB 
ZETA = .0676**2 = .00456976 
RSLT = .00456976 + 7.5 + .0676 = 7.57216976 
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R eferencing Function Subprograms 

The actual arguments of a function subprogram reference argument list must 
agree in order, number and type with the corresponding dummy arguments in 
the function subprogram. 

When referenced, the symbolic name of the function subprogram must be 
immediately followed by an actual argument list, except when used in a 
TYPE- or EXTERNAL statement, or as an actual argument to another subprogram. 



An actual argument in a function subprogram reference may be one of the 
following: 

A constant 

A variable name 

An array element name 

An array name 

Any other expression 

The name of a FORTRAN IV library function 

The name of a user-defined FUNCTION or SUBROUTINE subprogram. 

If an actual argument is a function subprogram name or a subroutine name, 
the corresponding dummy argument must be used as a function subprogram 
name or a subroutine name, respectively. 

If an actual argument corresponds to a dummy argument defined or redefined 
in the referenced function subprogram, the actual argument must be a 
variable name, an array element name, or an array name. 
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Execution of a function subprogram reference results in an association of 
actual arguments with all appearances of dummy arguments in executable 
statements and adjustable dimensions in the defining subprogram. If the 
actual argument is an expression, this association is by value rather than 
by name. Following these associations, the first executable statement of 
the defining subprogram is executed. 

An a.ctual argument which is an array name containing variables in the sub- 
script could, in every case, be replaced by the same argument with a con- 
stant subscript containing the same values as would be derived by computing 
the variable subscript just before the association of arguments takes 
place. 

If a dummy argument of a function subprogram is an array name, the corres- 
ponding actual argument must be an array name or an array element name. 



9-14 



SUBROUTINE 



PURPOSE: To define a user-specified subroutine, which may be compiled 
independently from a program unit which references it. 



FORMAT: 



SUBROUTINE S 

SUBROUTINE s (a., a , . .., a^) 

s = the symbolic name of the subroutine 
a = dummy argument 



COMMENTS: To reference a subroutine, a program unit uses a CALL statement. 

The SUBROUTINE statement must be the first statement in a 
subroutine subprogram. 

The SUBROUTINE statement cannot be used in a function subprogram. 



EXAMPLES: 



CALL MATRX 

ff 
CALL SUBR(I,J) 



SUBROUTINE MATRX 

ff 
RETURN 
END 
SUBROUTINE SUBR ( I , J ) 

// 
RETURN 
END 
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Defi ning Subroutines 

The symbolic name of the subroutine must not appear in any statement except 
as the symbolic name of the subroutine in the SUBROUTINE statement itself. 

The symbolic names of the dummy arguments may not appear in an EQUIVALENCE, 
COMMON, or a DATA statement in the subroutine. 

A dummy parameter can be used to dimension an array name, which also appears 
as ci dummy parameter of the subroutine. An array which is declared with 
dummy dimensions in a subroutine must correspond to an array which is de- 
clared with constant dimensions (through some sequence of argument associ- 
ation) in a calling program unit. An array declared with dummy dimensions 
may not be in COMMON. 

The symbolic name of a dummy argument may be used to represent a variable, 
array, another subroutine or a function subprogram. 

The subroutine defines or redefines one or more of its arguments to return 
results. 

The subroutine may contaz.n any statements except a FUNCTION statement/ 
PROGRAM statement, another SUBROUTINE statement, or any statement that 
directly or indirectly references the subroutine being defined. 



Referencing Subroutines 

The actual arguments which constitute the argument list must agree in 
order, number and type with the corresponding dummy arguments in the de- 
fining subroutine. (A Hollerith constant must correspond to an integer type 
dummy argument.) 
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An actual argument in a subroutine reference may be one of the following: 

A constant 

A variable name 

An array element name 

An array name 

Any other expression 

A FORTRAN IV library function name 

A user-defined function or subroutine subprogram name 

If an actual argument is a function subprogram name or a subroutine name, 
the corresponding dummy argument must be used as a function subprogram 
name or a subroutine name, respectively. 

If an actual argument corresponds to a dummy argument defined or redefined 
in the referenced subroutine, the actual argument must be a variable name, 
an array element name, or an array name. 

Execution of a subroutine reference results in an association of actual 
arguments with all appearances of dummy arguments ir. executable statements 
and adjustable dimensions in the defining subroutine. If the actual argu- 
ment is an expression, this association is by value rather than by name. 
Following these associations, the first executable statement of the de- 
fining subroutine is execrated. 

An actual argument which is an array name containing variables in the sub- 
script could, in every case, be replaced by the same argument with a con- 
stant subscript just before the association of arguments takes place. 

If a. dummy argument of a subroutine is an array name, the corresponding 
actual argument must be an array name or an array element name. 
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APPENDIX A 
DATA FORMAT IN MEMORY 



The six types of data used in HP FORTRAN IV (integer, real, double precision, 
complex, logical, and Hollerith) have the following format when stored in 
memory . 



INTEGER FORMAT 



PURPOSE: An integer datum is always an exact representation of a positive, 

negative or zero valued integer, occupies one 16-bit word and 

„ „15 + „15 
has a range of -/- to 2 -1. 



FORMAT: 
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REAL FORMAT 



PURPOSE: A real datum is a processor approximation to the positive, neg- 
ative or zero valued real number, occupies two consecutive 



16-bit words in memory £ind has an approximate range of 10 
to 10 38 . 



■38 



FORMAT: 



15 



L 



— implied binary point 



14 



fraction bits 
sign of f ract i on 



IS 



fract i on bits 



exponent bits 



sign of exponent 



word 1 



word 1 



COMMENTS: A real number has a 23-bit fraction and a 7-bit exponent. 

Significance (to the user) is to six or seven decimal digits, 
depending upon the magnitude of the leading digit in the 
faction. 
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DOUBLE PRECISION FORMAT 



PURPOSE: A double precision datum is a processor approximation to a 
positive, negative or zero valued double precision number, 

occupies three consecutive 16-bit words in memory and 

-38 38 
has an approximate range of 10 to 10 



FORMAT: 



15 



• iir.pl ied binary point 



14 



fraction bits 
s Lun of f i act ion 



15 



fract ion bits 



15 



fract i on bits 



7 



exponent bits 
sign of exponent 



i/ord 1 



wo rd 2 



word 3 



COMMENTS: A double precision number has a 39-bit fraction and a 7-bit 
exponent. 

Significance (to the user) is to eleven or twelve decimal 
digits, depending upon the magnitude of the leading digit in 
the fraction. 
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COMPLEX FORMAT 



PURPOSE: A complex datum is a processor approximation to the value of a 
complex number and occupies four consecutive 16-bit words in 

memory. Both the real and imaginary parts have an approximate 

— 38 38 
range of 10 to 10 



FORMAT: 



real 
part 



imaginary 
part 



15 



L 



■ — implied binary point 



fraction bits 
. ign of f fact ion 



fract .on bits 



15 



implied binary point 



14 



i 



15 



fract ion b i ts 



s i gn oi i ract ion 



fract l on f i ts 



exponent bits 
ign of exponent — 



exponent bits | 
sign of exponent ' 



i 



word 1 



word 2 



worn -•> 



word 1 



COMMENTS: Both the real part and the imaginary part have 23-bit fractions 
and 7-bit exponents; both have the same significance as a real 
number. 
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LOGICAL FORMAT 



PURPOSE: A logical datum occupies one 16-bit word in memory. The 
sign bit determines the truth value: 1 = true, = false. 



FORMAT: 



15 


14 





























1 



































( 


) 






15 



14 







U 



.TRUIi. 



. FALSI: 



HOLLERITH FORMAT 



PURPOSE: A Hollerith datum is a one or two character string taken from 
the HP ASCII character set; it occupies one 16-bit word in 
memory . 



: 0RMAT: 





15 8 







H0LLLRIT1: i 


HOLLERITH 2 
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APPENDIX B 
COMPOSING A FORTRAN IV JOB DECK 

After a source program has been written, it is submitted as a FORTRAN IV 
job deck. A job deck is input in the form of punched cards or a source 
paper tape or through a teleprinter. The job deck has the following form: 

FORTRAN CONTROL STATEMENT 
MAIN PROGRAM 

// 
END STATEMENT 
SUBPROGRAM (1) 

ff 
END STATEMENT 

SUBPROGRAM (n ) 

// 
END STATEMENT 
FORTRAN END JOB STATEMENT 



FORTRAN END JOB STATEMENT 

A FORTRAN! end job statement is a source statement that contains the currency 
symbol ($) in column one or END$ in columns 7-72. 

The FORTRAN control statement is described on the following page. 
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FORTRAN CONTROL STATEMENT 



PURPOSE: To describe the type of output to be produced by the compiler. 

FORMAT: 

FTN[4J, Pj , p 2 , p 3 , p., p [; 

FTN[4j = Signals a. FORTRAN Control Statement; the "4" is optional. 

Pj ~ ^5 = optional parameters, in any order, chosen from the follow- 
ing set : 

B = Binary Output. An object program is to be punched in. re- 
locatable binary format suitable for loading by any of 
the operating system loaders. 

L = List Output. A listing of the source language program is 
to be produced as the source program is read in. 

A = Assembly Listing. A listing of the object program in 
assembly level language is to be produced in the second 
pass. 

M = Mixed Listing. A listing of both the source and object 
program is produced; each source line is included with 
the object code it generated in the compilation pro- 
cess. This listing is produced during the second pass, 
and therefore it is necessary to store the source 
language program on the disc when it is read in during 
the first pass. (Sufficient disc space must be avail- 
able for storing both the source and intermediate code 
in order for this parameter to be used. ) 

T = Table Listing. A listing of the symbol table for each 
main or subprogram is produced during the second pass. 
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FORMAT; 
(cont. ) 



C = Cross Reference Symbol Table Listing. A cross reference 

listing of symbols and labels used in the source program is 
produced. (See Appendix E for a description.) 

n =■ Error Routine n Supplied. n is a decimal digit (1-9) which 
specifies an error routine, ERRn. The error routine is called 
when an error occurs in ALOG, SQRT, .RTOR, SIN, COS, .TROI, 
EXP, ITOI, or TAN. If this option does not appear, the 
standard library error routine, ERRO, is used. 



COMMENTS; Undefined source program statement numbers are printed when an 
END Statement is encountered. 

If both M and A are specif ied, M is used. Both A and M will 
generate the symbol table listings automatically. 

TODS-C users do not use 'C to produce a cross-reference; the 
system asks if a cross-reference is desired at compilation time. 
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APPENDIX C 
SUMMARY OF CHANGES TO' ANSI FORTRAN IV 

The HP FORTRAN IV Compiler conforms to the American National Standards 
Institute FORTRAN IV specifications as described in the ASA publication 
X3. 9-1966, with the following exceptions and extensions. 

EXCEPTIONS TO STANDARD 

Program, subprogram and external names are limited to five characters. 
Named COMMON blocks are not allowed. 

BLOCK DATA subprograms are not allowed. (With the elimination of named 
COMMON blocks, BLOCK DATA subprograms have no function.) 

Intrinsic functions are treated as external functions. 

E X TE NSIONS OF STANDARD 

A subscript expression may be any arithmetic expression allowed in HP 
FORTRAN IV. However, if an expression is of a type other than integer, 
it. is converted to type integer after it has been evaluated. 

The initial, terminal and step-size parameters of a DO statement may 
be any arithmetic expressions. If the expressions are not of type 
integer, they are converted to type integer after they have been evalu- 
ated. The step-size parameter may be either positive or negative, 
thereby allowing either incrementing or decrementing to the terminal 
parameter value. (Implied DO lists may use only integer arithmetic 
expressions which do not reference functions.) 
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The integer variable reference in a computed GO TO cam be replaced by any 
arithmetic expression. Non-integer expressions are converted to type in- 
teger before the GO TO statement is executed. If the value of the express- 
ion is less than one, the first statement in the computed GO TO list is 
executed. If the value is greater than the number of statements listed in 
Che GO TO, the last statement in the computed GO TO list is executed. 

The Hollerith constant nHc, c,. ...c may be used in any arithmetic expression 

1 ,; n 

where an integer constant or an integer-valued expression is permitted. 
Note, however, that if n "2, only the first two characters in the constant 
are used, that n = is net permitted, and that if n = 1, the character C 
is stored in the left half of the computer word, with a blank character in 
the right half. Characters are stored in a single word in ASCII form. 

Any two arithmetic types may be mixed in any relational or arithmetic oper- 
ation except exponentiation. 

Additional types of exponentiation are permitted. (See Table 3-2.) 

An unsubscripted array name is an admissible list element in a DATA state- 
ment. In this case, the correspondence with constant values is as follows: 
If the array has n elements, then the next, m constants from the list are 
used to initialize the array in the order in which it is stored (column 
order) . If the remainder of the constant list (at the time the array name 
is encountered) has m • n elements in it, then only the first m elements 
of the array are initialized. 
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APPENDIX D 
COMPATIBILITY OF HP FORTRAN AND FORTRAN IV 

HP FORTRAN IV contains some language extensions to provide compatibility 
with HP FORTRAN. These features are: 

Special characters included with ASCII input data can direct its formatting 
(free field input); a FORMAT statement need not be specified in the source 
program. 

Alphanumeric data can be written without giving the character count by speci- 
fying heading and editing information in the FORMAT statement through "..." 
entries , 

The Aw conversion code of HI' FORTRAN is equivalent to the Rw conversion code 
in HP FORTRAN IV. A single character stored in a word under R format control 
is placed in the right half of the word with zeros in the left half. On out- 
put, using the Rw format, the right half of the word is written. A HP FORTRAN 
program using an Al FORMAT specification may have to be changed to use the 
Rl specification. The user may also use calls to OLDIO. (See the Relo catable 
Subroutines manual.) 

The END statement is interpreted as a RETURN statement (in a subprogram) or 
as a STOP statement (in a mam program) . A RETURN statement in a main pro- 
gram is interpreted as a STOP statement. 

The HP FORTRAN External Functions which perform masking (Boolean) operations 
(IAND, IOR, NOT) and test the sense switches (ISSW) are retained as FORTRAN IV 
library functions. 

The two-branch arithmetic IF statement (IF (e) n , r^) is retained in FORTRAN 
IV. 

Octal constants are valid in FORTRAN IV. 
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Using an unsubscripted array name always denotes the first element of that 
array, except in an I/O statement or a DATA statement, where the entire array 
is referenced. A single subscript, i, with a multiply-dimensioned array, 
denotes the ith element of the array as it is stored (in column order) . 
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APPENDIX E 
CROSS REFERENCE SYMBOL TABLE 



The HP 24177 RTE/DOS FORTRAN IV Compiler provides the option of producing a 
cross reference listing of symbols and labels used in the source program. 
The sample program listing shown in Appendix F contains a cross reference 
symbol table as the last item listed. If requested, the cross reference 
symbol table is always the last, listing produced for each compiled program 
unit. 



REQUESTIN G A CROSS REFER ENCE SYMBOL TABLE LISTING 

The optional parameter C is used in the FORTRAN Control Statement to request 
a cross reference symbol table. Section VII describes the format and 
parameters of the FORTRAN Control Statement. 



CH ARACTERISTICS OF TABLE 

Bach symbol is printed followed by the line numbers in which the symbol 
appears. Multiple references in one line to the same symbol are noted. 
Statement labels are preceded by the @ character. 

Up to eight line numbers are printed per line of the cross reference symbol 
table. The line numbers are listed in ascending order except when they occur 
in an EQUIVALENCE statement. For example, 

0099 COMMON N 

0100 EQUIVALENCE (N(l), M(D) 

0101 DIMENSION N(50), M(50) 

0102 N(l)=l 
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produces, for the symbol N, the following cross reference information: 



0099 0101 0100 0102 



E RROR CONDITIONS 

The cross reference symbol table is not complete for lines which contain com- 
pilation errors, since compilation is terminated at the point in the line 
where the error is detected. 

If more than 2000 unique symbols are used in the compiled program unit, the 
following message is printed instead of the cross reference symbol table; 

PROGRAM TOO LARGE - CROSS REFERENCE ABORTED 



APPENDIX F 
SAMPLE LISTING OF FORTRAN IV PROGRAM 
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PAGE 1*3011 



FTN4 COMPILER* HP24177 



(9001 

0002 
3033 
! 3 4 

51 Id (36 

*007 
0i! PI 8 
91 1,1 9 

a h i pi 

3011 

PI" 12 
id 1 3 
01014 
00 15 
00 16 
0017 
0018 
0019 
0020 
0021 
0H22 
0023 
0024 
9025 

0026 

0027 
0028 
0029 
0030 
00 31 
H 3 2' 
3 A 
w 3 4 
n 3 5 

003fi 

0037 
0038 
PI 39 
0040 
0041 
00 4 2 
4 3 
00 4 4 
4 5 
W 4 6 
01*47 
004H 
0i* 4S) 
50 
0051 

0052 
00 53 
51 5 4 
00 5H 
00 5(i 



FTN4,i..T,C 

PROGRAM COUMP(2,90) 

DIMENSION IPARMC5), IBL0CKC64), IWORD(B), IASCIH8) 

EQUIVALENCE C IP ARM (3) , IBASE) , ( IPARM (4) , IFWA) , (IPARM (3) , ILW A) , (I 
USCIlCn ,NOF) 

DATA IN/1/, LIS/6/, NO,NOF/2*0/, J/1W / 

IOCTAL(IA0)»IA0 / 10000*40 96 *MIN0(MOD CIA 0, 100005/1000*512,3584 )*MIN0 
1 (MOD(IAP), 1000)/ 100*54, 448) +MIN0 (MOO C I A0, 1 00) / 1 0*8 , 56) *MI N0 ( MOD C I A0 
2,10) .7) 

CALL RMPAR (IPARM) 

TF (IPARM(1),GT,0) IN«IPARM(1) 

IF (IPARM(2).GT,0) LI3«IPARM(2) 

IBASE»IOCTALCIBASE) 

IFWAalOCTAL(IFwA) 

ILWA»IOCTALCILWA) 

IF (TBASE*IFWA*IL*IA,GT,0)3,4 

4 WRITE (IN, 5) 

5 FQRMAT(/,"/CDUMPl #B ASE , *FW A , *LW A It «-") 
READ (IN,*) IFASE.IF^A.ILWA 

3 IF (ILWA.EQ.0) IL(«IA»IFWA 

IF (I9ASE, GT.-l.ANO.iaASE.LT. 07767 IB. AMD. IFW A .LE.ILW A. AND. IB A8E*IP 
1*A.GT,000001B, AND.IBASE+ILWA.LT.077700B) 1,13 
13 DO 12 I«3,5,l 
12 IPARM(I)»0 
GO TO 4 
1 IFWA»IAWD(IBAJiE*IFwA,077770B) 
ILWAalBASE+lLWA 
IF (I3ASE.GT.000000B) J*1HR 
N=IAND(IFWA-IBASE,000077B) 
'aiRITE (LIS, 6) IBASE 

6 FOHMATC BASE RELOCATION ADDRESS: " , 05„ H B H , /) 

00 150 L«l, CIL>A-IF*IA)/64*1, 1 
IF (NO.GT.l) KRITE (LIS, 400) NO 

400 F0RMAT(3X,2(2>(,5("*")) ,3X,I3," LINES SAME AS ABOVE " , 2 lit » 5 ("*") 5 

If" *") 
IF (NO. NE. 1)30,25 
?5 IsIANO(N-0000!.0B,000077B) 

WRITE (LIS, 200) I,I-)ORD,IASCII 

200 F09M4T(1X,02, , B (IX, 06) , " * " ,8A2) 

30 N s 

DO 35 M»l,64,:i 
TBLOCK(M) bIGET (IFWA1 
35 IFwAaIFWA+1 

1 » I F W A - 1 

IF CTLWA.LT.n I»IAND(ILWA+000010B,077770B)-1 
Ms,! 

K«IFWA-IBASE-<54 
IF (K.GT. -1)7,8 
8 M a 1 H 

KaK+IBASE 

7 lal-IBASE 

WRITE (LIS, 100) K.M.I.J 
100 FDRMAT(2/,5X, "LOCATIONSI ",05,Al," THRU ",05,A1,/) 
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DO 150 Msl ,MIN0( (ILWA-IFWA+64) /8*8*1 ,57) ,8 
IF (NOF.EO.0)!?, 110 
30 125 1*1.8, 1 
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PAGE 0*02 COUMP FTN4 COMPILER: HP24177 

m57 IF (IHOHOCn.NE.IBUflCKd + M-iniSBtlZS 

•■■? -1 S 8 135 CONTINUE 

W39 NO«"JOM 

3<460 SO TO 15» 

3MS1 130 IP (NO.GT.l) WRITE (LIS, 400) NO 

31362 IP (NO. NE, 1)10, 11 

■IMS 3 11 I»IANO(N»00«010B,300«77B) 

■^S4 .MITE (LIS, 200) I , I«I090, IASCII 

3365 it? mom 

7)366 9 00 148 I»l ,8,1 

3467 IWORQ(I)»IBLOCKi:i*M-l) 

V3S8 KsIWORDCI) 

Ttusg IF (IANOC<, 1774v)09) . LT . 020000B , OR . I AND CK „ 1 774001) .GT.B57400B) K«IA 

3i370 1N0 (K.000377B) +0200PI0B 

•At) 71 IP (IAND(K, 0003778) ,LT .000040B. OR . I AND CK , 000377B) ,GT, 0001378) K«IA 

flH7£ 1N0CK, 1774008)*0t! | 0040B 

5!<373 148 IASCIKD-K 

51074 WRITE (LIS, 200) N.IWORD, IASCII 

^(375 150 NxTANO (N*000(* 1 0>* , 000077B) 

51076 IF (NO.GT.l.) WRITE (LIS, 400) NO 

?I377 njsIANO(N«000010B, 00*0778) 

CH78 IF (NO.EQ.l) WRITE (LIS, 200) N, IWORD, I ASCI I 

0H79 :: ALL EXEC (3,Li:>*00U00B,-l) 

0fl80 .mRITE (IN,*) 

3H81 2 FORMATC'/COUMPI $ENO") 

0032 END 

** MO ERRORS** PROGRAM * 00902 COMMON ■ 00000 
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PAGE 0003 CDUMP FTM4 COMPILER! MP24I7) 



SYMBOL TABLE 



NAME 



ADDRESS USAGE 



TYPE 



LOCATION 



• 1 

#11 
#130 

Mi 

MIC 
M2 

• 125 

•13 
•130 
»14« 
#150 

• 2 
#2*0 

• 2 5 
#3 
#39 
#35 
#4 

• 4 1; 

• 5 

• 6 
#7 

#6 

• g 

CLRIO 

EXEC 

I 

I A NO 

I A SCI I 

IflASE 

I8LDCK 

IMA 

IGET 

IL<U 

IN 

IOCTAU 

IPARM 

IWORO 

J 

< 

L 

LIS 

M 

M I NiC5 

MOO 

N 

NO 

NOP' 

RMPAR 



000467R 
001234R 
301043R 
001206R 
301124R 
300451R 
001150R 
300447R 
001163R 
001333R 
331370R 
301504S 
300704R 
500656R 
300401R 
300723R 
300737R 
300337R 
300606* 
300345R 
300530R 
3010219 
301014R 
301236R 
M0001X 
300016X 
301557R 
300013X 
300012R 
300>M6R 
000324R 
?l000a7R 
300015X 
300010R 
300135R 
300142R 
300004R 
300125R 
300140R 
001572R 
301556R 
300136R 
001570R 
000006X 
3000*5a 
301564R 
300137R 
000012R 
300007X 



STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

STATEMENT 

SU8PR0GRA 

SUBPROGRA 

VARIABLE 

SUBPROGRA 

ARRAYO) 

VARIABLE 

ARRAY (») 

VARIABLE 

SUBPROGRA 

VARIABLE 

VARIABLE 

STATEMENT 

ARRAYC*) 

ARRAYC*) 

VARIABLE 

VARIABLE 

VARIABLE 

VARIABLE 

VARIABLE 

SUBPROGRA 

SUBPROGRA 

VARIABLE 

VARIABLE 

VARIABLE 

SUBPROGRA 



NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 



M 



FUNCTION 



M 



REAL 

REAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

REAL 



EXTERNAL 

EXTERNAL 

LOCAL 

EXTERNAL 

LOCAL 

LOCAL 

LOCAL 

LOCAL 

EXTERNAL 

LOCAL 

LOCAL 

LOCAL 

LOCAL 

LOCAL 

LOCAL 

LOCAL 

LOCAL 

LOCAL 

LOCAL 

EXTERNAL 

EXTERNAL 

LOCAL 

LOCAL 

LOCAL 

EXTERNAL 



F-4 



PAGE 7)3914 CDUMP FTN4 COMPILER! HP24177 



CROSS-REFERENCE LIST 



SYMBOL REFERENCES 

»1 
10 

l»ll 
!» 1 1 13 

• 13 

• 125 

• 1 3 
139 

• 148 

• 1 5<3 
!»2 

!»2;^a 

» 2 5 

!»3 
!»30 
»33 
M 

• 4 v) 
»5 
»6 
#7 
«8> 
119 
EXEC 



0022 


0026 






0082 


0065 






0052 


0053 






00)52 


0063 






0U5S 


0056 






0023 


0024 






0056 


0057 


0058 




0022 


0023 






0057 


0061 






0056 


0073 






3032 


0054 


0360 


0075 


0090 


0081 






003S 


0039 


0064 


0074 


0936 


0037 






0016 


0020 






0036 


0040 






0041 


0043 






0016 


0017 


0025 




0033 


0034 


0061 


0076 


0017 


0018 






003.71 


0031 






0048 


0051 






004a 


0049 






0055 


0066 






0079 
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page 0035 cdump ftn4 compileri hp24177 
Cross-reference list 



SYMBOL 


REFERENCES 














I 


0023 
0051 
0067 


0024 
0059 
0067 


0037 
0056 
0068 


0038 
0057 
0073 


0044 
0057 


0045 
0063 


0045 

0064 


0051 
0066 


I A3 


0007 


0007 


0007 


0008 


0008 


0000 






IAND 


0026 
0071 


0029 
0071 


0037 
0071 


0045 
0075 


0003 
0077 


0009 


0009 


0069 


I ASCII 


0003 


0004 


0038 


0064 


0073 


0074 


0078 




I BASE 


0004 
0022 
0051 


0013 
0026 


0013 
0027 


0016 
0028 


0019 
0029 


0021 
0030 


0021 

0047 


0021 
0050 


IBLOCK 


0003 


0042 


0057 


0067 










IFWA 


0004 
0026 
0047 


0014 
0026 
0054 


0014 
0029 


0016 
0032 


0019 

0042 


0020 
0043 


0021 
0043 


0021 

0044 


IGET 


0042 
















II.WA 


0004 
0022 


0015 
0027 


0015 
0027 


0016 
0032 


0019 

0045 


0020 

0045 


0020 
00S4 


0021 


IN 


0006 


0011 


B017 


001B 


0080 








IOCTAL 


0007 


0013 


0014 


0015 










IPARM 


0003 
0012 


0004 
0024 


0004 


0004 


0010 


0011 


0011 


0012 


I WORD 


0003 


0038 


0057 


0064 


0067 


0066 


0074 


0076 


J 


0006 


0028 


0046 


0052 










K 


0047 
0069 


0048 
0070 


0050 
0071 


0050 

0071 


0052 

0071 


0068 
0072 


0069 

0073 


0069 


L 


0032 
















LIS 


0006 
0074 


0012 
0076 


0030 
0078 


0033 

0079 


0038 


0052 


0061 


0064 


M 


0041 


0042 


0046 


0049 


0052 


0054 


0057 


0067 


MIN0 


0007 


0007 


0008 


0000 


0094 








HOO 


0007 


0008 


0008 


0008 
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PAGE 0006 CDUMP FTN4 COMPILERI HP24177 

CROSS-REFERENCE LIST 

SYMBOL. REFERENCES 

Nl 0029 0037 0063 0074 0079 0075 0077 0077 

0078 

NO 0006 0033 0033 0036 0040 00S9 0059 0061 
0061 0062 0065 0076 0076 0078 

NOP 0005 0006 0055 

SMPA* 0010 



F-7 



APPENDIX G 
FORTRAN IV COMPILER ERROR DIAGNOSTICS 



TYP ES OF COMPILER DIAGNOS TICS 

There are four types of FORTRAN IV compiler diagnostics: 

COMMENT: The compiler continues to process the source statement 
containing the error. Executable object code is pro- 
duced, even though the program's logic may be faulty. 

WARNING: The compiler continues to process the statement, but 
the object; code may be erroneous. The program should 

be recompiled. 

STATEMENT TERMINATED: The compiler ignores the remainder of the 
erroneous source statement, including any continuation 
lines. The object code is incomplete, and the program 
must be recompiled. 

COMPILATION TERMINATED: The compiler ignores the remainder of 

the FORTRAN IV job. The error must be corrected before 
compilation can proceed. 



NOTE: If an error occurs in a program, the object code will 
contain a reference to the non-system external name 
.BAD. This prevents loading of the object tape, un- 
less forced by the user. It is strongly recommended 
that a program with compilation errors not be executed. 
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FORMA T OF COMPILER DIAGNOS TICS 

When an error is detected, the erroneous source statement is printed, follow- 
ed by a message in this format: 

** pname ** ERROR nn DETECTED AT COLUMN cc 

pname = the program name 

nn = the diagnostic error number 

cc = column number of source line being scanned when error 
detected. 



NOTE : 


If cc = 01 , the error is in the source line preceding 




the last one printed. If cc = 00, there is an error 




in an EQUIVALENCE group, and the group (or a portion 




of the group) is printed before the error message. 



When the END statement is encountered by the compiler and undefined source 
program statement numbers still exist, an error message is printed of the 
form : 

@ nnn UNDEFINED 

where nnn is the statement number that did not appear in columns 1-5 of any 
of the initial lines of the program just compiled. 

Following the listing of the source program, a summary line is listed of the 
form ; 

** nn ERRORS ** PROGRAM = xxxxx COMMON = yyyyy 

where nn is the number of errors detected {nn = NO, i.f no errors were detected) 

xxxxx is the decimal number of main memory locations required for the program 
object code;. 



yyyyy 

block 



iu is the decimal number of main memory locations required for the common 
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TABLE G-l 
HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 
CODE 



EXPLANATION 



01 COMPILER CONTROL STATEMENT MISSING 

There is no FTN or FTN4 directive 
preceding the FORTRAN IV job. 



EFFECT 



Compilation 
terminated 



ACTION 



02 ERROR IN COMPILER CONTROL STATE- 
MENT 

Incorrect syntax or illegal para- 
meter in FTN or FTM4 directive. 



Compilation 

terminated 



03 SYMBOL TABLE OVERFLOW 

Insufficient core memory exists 
for continuing compilation. 



Compilation 
terminated 



Reduce number of 
symbols (constants, 
variable names and 
statement numbers) 
in program and short 
en lengths of vari- 
able names and state 
merit numbers. 



04 LABELED COMMON NOT ALLOWED 

Only unlabeled (blank) COMMON 
is allowed in HP FORTRAN IV. 



Statement 
termi nated 



Convert labeled 

COMMON blocks to 
blank COMMON. 



05 NO DISC SOURCE FILE ASSIGNED 

The logical unit for input of the 
FORTRAN IV source program is 2, but 
the address of source file on disc 
has not been assigned. 



Compilation 
terminated 



Precede compilation 
by a :JFILE (DOS) or 
LS (RTE) directive 
to operating system 



END OF FILE OCCURRED BEFORE "$" 

Source input file ended before the 
*'$" or END$ statement ending the 
FORTRAN IV job was encountered. 



Compilation Example: no "$" or 
terminated END$ statement, at 
end of source file 



7 RETURN IN MAIN PROGRAM 

A RETURN statement occurs in a 
main program. It is interpreted 
as a STOP statement. 



Comment 
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TABLE G-l (Cont.) HP FORTRAN IV 


COMPILER ERROR 


DIAGNOSTICS 


ERROR 








CODE 


EXPLANATION 


EFFECT 


ACTION 


08 


ILLEGAL COMPLEX NUMBER 


Warning 


Example: non-real 




A complex number doe:- not con- 
form to the syntax: 
(+ real constant, + real constant) 




constant as part 
of complex number: 
(1-0,2) 


09 


MISMATCHED OR MISSING PARENTHESIS 


Statement: 






An unbalanced parer. thesis exists 


terminated 






in a statement or £.n expected 








parenthesis is missing. 






10 


ILLEGAL STATEMENT 


Statement 


Examples: The first 




The statement in question cannot 
be identified. 


terminated 


72 columns of a 
statement do not 
contain one of the 
following: (a) the 
'=' sign if it is a 
statement function 
or an assignment 
statement, (b) the 
' , ' following the 
initial parameter 
if it is a DC state- 
ment, (c) 'IF(' for 
an IF statement or 
(d) the first four 
characters of the 
statement keyword 
for all other state- 
ments (e.g. DIME, 
WRIT) . A statement 
keyword may also be 
misspelled in the 
first four charac- 
ters (e.g. RAED) .. 


11 


ILLEGAL DECIMAL EXPONENT 


Statement 






Non-integer constant exponent 


terminated 






in floating point constant. 






12 


INTEGER CONSTANT EXCEEDS MAXIMUM 


Statement 






INTEGER SIZE 


terminated 






An integer constant is not in the 








range of -32768 to 32767. 









TABLE G-l (Cont.) HP FORTRAN IV 


COMPILER ERROR 


DIAGNOSTICS 


ERROR 








CODE 


EXPLANATION 


EFFECT 


ACTION 


13 


HOLLERITH STRING NOT TERMINATED 

In the use of 'nil', less than n 
characters follow the H before 
the end of the statement occurs. 
In a FORMAT statement, an odd 
number of quotation marks sur- 
round literals. 


Statement 
terminated 




14 


CONSTANT OVERFLOW OR UNDERFLOW 

The binary exponent of a floating 
point constant exceeds the maximum, 
i.e., | exponent > 38. If under- 
flow, the value is set to 0. 


Warning 




15 


ILLEGAL SIGN IN LOGICAL EXPRESSION 

An arithmetic operator precedes 
a logical constant. 


Warning 


Examples : - . FALSE . , 
+ . TRUE . 


16 


ILLEGAL OCTAL NUMBER 


Statement 


Examples: 0000012B, 






terminated 


277777B, .12343 




An octal number has more than six 








digits, is greater than 177777B or 








is non- integer. 






17 


MISSING OPERAND - UNEXPECTED DE- 


Statement 


Examples : 




LIMITER 


terminated 


DIMENSION A (2, 4,) 
EQUIVALENCE (B(2)) 




Missing subscript in an array 








declarator in a DIMENSION 








statement or missing name in 








an EQUIVALENCE group. 






18 


ILLEGAL CONSTANT USAGE 


Warning 


Examples : 
SUBROUTINE 12 34 




A constant is used as a subprogram 




FUNCTION NAME (X, 12, A) 




or statement function name, as a 




EQUIVALENCE (1,5) 




parameter of a subprogram or state 








ment function, or as .an element. 








of an EQUIVALENCE group. 
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TABLE G-l (Cont.) HP FORTRAN IV COMPILER ERROR 


DIAGNOSTICS 


ERROR 










CODE 


EXPLANATION 




EFFECT 


ACT ION 


19 


INTEGER CONSTANT REQUIRED 




Statement 


Examples: A non- 




An integer variable is used. 
v;here an integer constant is 
required. 




terminated 


dummy integer vari- 
able is used in an 
array declarator or 
an integer variable 
is used as a sub- 
script in an 
EQUIVALENCE group. 


2 


EMPTY HOLLERITH STRING 




Statement 






In an 'nH' specification, n=0. 




terminated 




21 


NON-OCTAL DIGIT IN OCTAL CONSTANT 


Warn ing 


Example: 12 89B 




A digit > 7 occurs in an octal 










constant. 










ILLEGAL USAGE OF NAME 

A variable is used as a sub- 
program name or an array name 
is used as a DO statement 
index variable. 




Statement 
term in a. ted 




23 


DO TERMINATOR DEFINED PREVIOUS 


TO 


Statement 


Example : 




DC STATEMENT 




terminated 


10 DO 10 1=1,5 




The terminating statement of a 


DC 








loop comes before the DO statement 








or is the DO statement, itself. 








24 


ILLEGAL CONSTANT 

A variable name is expected 
but a constant appears. 




Statement 
term mated 




25 


ILLEGAL SUBPROGRAM NAT-IE USAGE 




Statement 


Examples: A subpro- 




A subprogram name :.s used where 




terminated 


gram name occurs on 
the left-hand side 




a variable name cr constant is 






of an assignment 




expected. 






statement. A FUNCTION 
or statement function 
name occurs as an op- 
erand in an expression 
but no argument list 
is given. 



TABLE G-l (Cont. ) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 
EXPLANATION EFFECT ACTION 



ERROR 
CODE 



26 



:l(i 



INTEGER VARIABLE OR CONSTANT 
REQUIRED 

Non-integer value is used where 
an integer quanta ty is required. 



STATEMENT NUMBER PREVIOUSLY 
DEFINED 

The same statement number appears 
on two statements. 



UNEXPECTED CHARACTER 



Syntax of statement is 
incorrect. 



ONLY STATEMENT NUMBER ON SOURCE 
LINE 

Some source code must appear 
within the first 72 columns of 
a numbered statement. 



IMPROPER DO NESTING OR ILLEGAL 
DO TERMINATING STATEMENT 

The ranges of nested DO loops 
overlap or a statement such as 
a GO TO, IF, RETURN or END ter- 
minated a DO loop. 



Statement 
terminated 



Statement 
termi nated 



Statement 
terminated 



Warn ing 



Statement 
terminated 



Examples: A sub- 
script in an 
EQUIVALENCE group 
element is a non- 
integer constant. 
A READ or WRITE 
statement has a 
non-integer logical 
unit reference. 



31 STATEMENT NUMBER STARTS WITH 
NON-DIGIT 

A statement number must be a 
1-5 digit integer. 



Statement 
terminated 



Example: Statement 
source code appears 
in columns 1-5 of 
first line of a 
statement. 
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TABLE G-l (Cont. ) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 








CODE 


EXPLANATION 


EFFECT 


ACTION 


32 


INVALID STATEMENT NUMBER 


Statement 






A statement Numbe'r has more than 


terminated 






five digits or it contains a non- 








digit character. 







3 3 


VARIABLE NAME USED A:- SUBROUTINE 


Statement 


Example: A=S 


IN 




NAME 

A name which has been previously 
used as a variable is now used 
in a s ub p ro g r am r e f e 1 1 n c t : . 


terminated 


B=S 


in ;x) 


34 


STATEMENT OUT OF )RDE1- 


Statement 


Examples: A si 


ib- 




Source statement:- must be in 
the order 1. Specification, 
2. DATA, 3. Statement Functions, 
and 4. Executable statements. 


terminated 


program name c 
curring, with 
argument list 
the left-hand 
of an assignmt 
statement may 
generate this 
error message 


je- 
an 

on 
s i de 

mt 
a 1 so 


'3 C 


NO PATH TO THIS STATEMENT ;R UN- 


Coram en t 








NUMBERED FORMAT ITA'I EMEN'I 










The statement . aj rev< r be executed 










since it is not numbered and it 










follows a transfer' of control state- 










ment. A FORMA" statement ls not 










numbered and therefore it cannot 










be used by tin prouran. 








36 


DOUBLY DEFINED P-IS" N\ NAME 


Statement 








A name occurs mor; L.ir:ii or ce in 


terrr ; nated 








a COMMON block. 








37 


ILLEGAL USE OF DUMMV' VARIABLE 

A subprogram parairu tej occurs 
in a COMMON statement . 


Statement 
terrr! nated 




.... . 



TABLE G-l (Cont.) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 






CODE 


EXPLANATION 


EFFECT ACTION 


38 


MORE SUBSCRIPTS THAN DIMENSIONS 


Statement 




An array name is referenced using 


terminated 




more subscripts t:ian dimensions 






declared for it. 




39 


ADJUSTABLE DIMENSION IS NOT A 


Statement 




DUMMY PARAMETER 


terminated 




The variable dimension used with 






a dummy array name must also be 






a dummy parameter. 




40 


IMPOSSIBLE EQUIVALENT'! GROUP 


Statement 




Two entries in COMMON appear in 


terminated 




an EQUIVALENCE group or two 






EQUIVALENCE group-, conf 1 1 ct . 






Further EQUIVALENCE grout s are 






ignored. 




41 


ILLEGAL COMMON BLOCK EXTENSION 


Statement 




An EQUIVALENCE group requires 


term j nated 




the COMMON block case to be 






altered. Further EQUIVALENCE 






groups are ignored. 




1 1 2, 


FUNCTION HAS No PARAMETERS JR 


Statement 




ARRAY HAS' EMPTY INTEGRATOR 

LIST 


term: nated 




A function must have at least 






one parameter. loere is in- 






sufficient information to 






dimension an array nam* . 




43 


FROGRAM, FUNCTION OR SUBROUTINE: 


Statement 




NOT FIRST STATEMENT 


terminated 




A PROGRAM statement:, if present, 






must come first. A FUNCTION or 






SUBROUTINE statement is required 






for subprograms . 
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TABLE G-l (Cont.,1 HP FORTRAN IV 


COMPILER ERROR 


DIAGNOSTICS 




ERROR 










CODE 


EXPLANATION 


EFFECT 


ACTION 


— — 


44 


NAME IN CONSTANT LIST IN 


Statement 






DATA STATEMENT 


terminated 








A constant list in a DATA state- 










ment contains a non-constant. 








45 


ILLEGAL EXPONENTIATI ON 

Exponentiation is not permitted 
with data types used. 


Statement 
terminated 






46 


FUNCTION NAME UNUSED OR SUB- 
ROUTINE NAME USED 

In a FUNCTION subprogram, the 
name of the FUNCTION is not de- 
fined or a SUBROUTINE name is 
used within the subroutine. 


Warning 






47 


FORMAT SPECIFICATION NOT AN 
ARRAY NAME, STATEMENT NUMBER 
OR * 

The FORMAT reference in an 
I/O statement is invalid. 


Statement 
terminated 






48 


00 MISSPELLED 

Keyword DO misspelled. 


Comment 


Example : D0 




4 9 


IMPROPER USE OF NAME: 

A variable is used as a sub- 
program name. 


Statement 
terminated 






50 


DO STATEMENT IN LOGICAL IF 

A DO statement is illegal as 
the "true" branch of a logical 


Warning 








IF. 









G-10 



ERROR 
CODE 



TABLE G-l (Cont.) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 



EXPLANATION 



EFFECT 



ACTION 



CONTROL VARIABLE REPEATED IN 
DO NEST 

A variable occurs as the index 
of two DO loops or implied DO's 
or a combination of these which 
are nested. 



Statement 
terminated 



LOGICAL IF WITHIN LOGICAL IF 

A logical IF statement is 
illegal as the "true" branch of 
another logical IF. 



Statement 
terminated 



5 3 ILLEGAL EXPRESSION JR 
ILLEGAL DELIMITER 

Arithmetic or logical express- 
ion has invalid syntax or a 
delimiter is invalid in state- 
ment syntax. 



Statement 
terminated 



Examples : 

The expression con- 
tains an illegal op- 
erator or delimiter, 
has a missing opera- 
tor (adjacent oper- 
ands) or a missing 
operand (adjacent 
operators). A READ 
or WRITE statement 
list has a delimiter 
syntax error. 



34 DOUBLY DEFINED ARRAY NAME 

An array name has dimensions 
defined for it twice. 



Statement 
terminated 



LOGICAL CONVERSIC 



ILLEGAL 



Conversion of logical data to 
arithmetic or arithmetic to 
logical is not defined. 



Statement 
terminated 



OPERATOR REQUIRES LOGICAL 
OPERANDS 

An operand of type INTEGER, REAL, 
DOUBLE PRECISION or COMPLEX has 
been used with .AND., .OR., .NOT. 



Statement 
terminated 
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TABLE G-l (Cont.) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 

ERROR 

C ODE EXPLAN ATION EFF ECT ACTION 

57 OPERATOR REQUIRES ARITHMETIC Statement 

OPERANDS terminated 

A logical operand: has been used 
in an arithmetic operation, i.e. +, 
~i *i / 1 ** ' or £ relational opera- 
tor. 



58 COMPLEX ILLEGAL Statement 

terminated 
One of the relational operators 

-LT., . LE., .GT. or .GE. has a 

COMPLEX operand or an IF statement 

has a COMPLEX expression. 



59 INCORRECT NUMBER OF ARGUMENTS Statement 
FOR SUBPROGRAM terminated 

One of the library routines SIGN, 
"SIGN, IAND or IOR is called with 
the number of arguments less or 
greater than two or a library 
routine which is called by value is 
called with more than one argument. 



60 ARGUMENT MODE ERROR Statement 

n terminated 
A library routine which is called 

by value is called with an argu- 
ment that is DOUBLE PRECISION, 
COMPLEX or LOGICAL. 



LOGICAL IF WITH THREE BRANCHES Warning 

The expression in an IF statement 
is of type logical and there are 
three statement numbers specified 
in the IF statement. 



ARITHMETIC IF WITH NO BRANCHES Warning 

No statement numbers in an arith- 
metic IF statement . 
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ERROR 
CODE 



TABLE G-l (Cont.) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 



EXPLANATION 



EFFECT 



ACTION 



63 REQUIRED I/O LIST MISSING 

The I/O list required for a free 
field input or unformatted out- 
put statement has not been 
specified. 



Statement 
terminated 



64 FREE FIELD OUTPUT ILLEGAL 

An '*' in place of a format 
designation is illegal in a 
WRITE statement. 



Statement 
terminated 



65 HOLLERITH COUNT GREATER THAN 2 

In an 'nil' specification, n 2. 



Comment Only the first two 
characters after 
th«2 H are used. 



66 PROGRAM UNIT HAS MO BODY 

A main program, SUBROUTINE or 
FUNCTION requires no object 
program. 



Warning 



67 END$ OR $ OCCURS BEFORE END 
STATEMENT 

The end of the FORTRAN job was 
encountered before the END state- 
ment terminating the current pro- 
gram unit. 



Compilation Example: END state- 
terminated ment contains syn- 
tax error or it is 
missing. 



•:: fa 



i: ':/ 



EXTERNAL NAME HA! 
CHARACTERS 



MORE THAN FIVE 



The name of a PROGRAM, SUBROUTINE 
or FUNCTION has more than five 
characters. The first five 
characters are usee. 



OCTAL STRING IN 
STATEMENT IS TOG 



,9. PAUSE 



In the statement STOP n or .PAUSE n, 
n has more than four digits. 



Warn in< 



warn mg 
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TABLE G-l (Cont.) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 








CODE 


EXPLANATION 


EFFECT 


ACTION 


70 


equivalence: grou: 3 syntax 


Statement 






An EQUIVALENCE group does not 


terminated 






start with a left parenthesis. 








All further groups are ignored. 






71 


DUMMY VARIABLE IN DATA LIST 


Statement 






Dummy parameters of a subprogram 


terminated 






cannot be initialized in a DATA 








statement . 






72 


COMMON VARIABLE IN DATA LIST 


Statement 






Entities of a COMMON block can- 


terminated 






not be initialized with a DATA 








statement . 






7 3 


MIXED MODE IN DATA STATEMENT 


Statement 






A name and its corresponding 


terminated 






constant in a DATA statement 








do not agree in type. 






74 


ILLEGAL USE OF STATEMENT FUNCTION 
NAME 

The name? of a statement function 
also occurs in its dummy parameter 
list. 


Warning 




-]<-, 


RECURSION ILLEGAL 


Statement 






The current program unit name 


terminated 






has been used in a CALL state- 








ment. 






76 


DOUBLY DEFINED DUMMY VARIABLE 

The same dummy variable name 
occurs twice in a subprogram 
or statement function para- 
meter list. 


Warning 
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TABLE G-l (Cont.) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 

ERROR 

;ODE EXPLANA TION __ EFFEC T ACTION 

77 STATEMENT NUMBER IGNORED Warning 

A statement number on a specifi- 
cation, DATA statement, continua- 
tion line, or on a statement 
function is ignored . 

7 8 PROGRAM UNIT HAS NO EXECUTABLE Warning 
STATEMENTS 

A program unit has only specifi- 
cation or DATA statements or 
statement functions.. 



79 FORMAT DOES NOT START WITH Warning 

LEFT PARENTHES IS 



80 FORMAT DOES NOT END WITH Warning 

RIGHT PARENTHESIS 



ILLEGAL EQUIVALENCE GROUP Statement 

SEPARATOR terminated 

EQUIVALENCE groups are not 
separated by a comma or a non- 
array name has subscripts in an 
EQUIVALENCE group. All further 
EQUIVALENCE groups are ignored. 



82 ILLEGAL USE OF ARRAY NAME IN AM Statement 
EQUIVALENCE GROUP terminated 

An array name in an EQUIVALENCE 
group is not followed by ( ' , ' , ' 
or ')'. All further EQUIVALENCE 
groups are ignored. 



83 SUBPROGRAM NAME RETYPED Warning 

The type declared for a sub- 
program name within its body 
does not agree with the type 
established in the SUBROUTINE 
or FUNCTION statement. 
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TABLE G-l (Cont.) HP FORTRAN IV COMPILER ERROR DIAGNOSTICS 



ERROR 








CODE; 


EXPLANATION 


EFFECT 


ACTION \ 


84 


OBJECT CODE MEMORY OVERFLOW 


Compiler 






Object program size is greater 


terminated 






than 32K. 






8 '3 


POSSIBLE RECURSION MAY RESULT 


Comment 


The user is advised 




The use of one of the library 
names REAL, SNGL, DBLE, CMPLX , 
FLOAT, CLRIO, IFIX, ERRO or 
EXEC as the name of a PROGRAM, 
may produce recursion if the 
body of the subprogram so named 
requires an implicit call to one 
of these names. 




to change the name 
of the subprogram 
or to make certain 
that no mixed mode 
exists in the pro- 
gram and that no 
library subprogram 
used requires a 
call to ERR0. 


86 


DUMMY VARIABLE IN STATEMENT 


Warning 


Example: 




FUNCTION CANNOT BE SUBSCRIPTED 




ASF(A)=A(1,1)+A(2 ,2) 




A dummy variable in a statement 








function cannot represent an 








array or a subprogram name. 






87 


TOO MANY CONTINUATION LINES 


Compilation 






More than 19 continuation lines 


terminated 






for a statement. 






88 


END OR FORMAT STATEMENT IN 


Statement 


Specify a branch 




LOGICAL IF 


terminated 


that is not an END 




An END or FORMAT statement is 




or FORMAT statement. 




illegal as the "true" branch of 








a logical IF. 






89 


CONTINUE STATEMENT OF NO BRANCH 


Warning 


Specify a valid 




IN LOGICAL IF 




branch or delete 




Specifying no branch or a 




statement. 




CONTINUE statement as a branch 








in a logical IF is logically 








equivalent to a NOP (No Operation) . 








The statement is assembled as 








stated. 






90 


FIRST RECORD OF SUBPROGRAM IS A 


Statement 


Statements are 




CONTINUATION LIKE 


termination 


missing or out of 




The first statement is incomplete 




order in source: 




if it contains a continuation code. 




program. 



G-16 



APPENDIX H 
OBJECT PROGRAM DIAGNOSTIC MESSAGES 



During execution of the object program, diagnostic messages may be printed 

on die output unit by the input/output system supplied for FORTRAN programs. 

When a halt occurs, the A-register contains a code which further defines the 

nature of the error: 



Message A-register 



Explanation 



Action 



r FMT 



TKT 



*FR'T 



*FMT 



"FMT 



000001 FORMAT error: 

a) w or d field does not: 
contain proper digits . 

b) No decimal point after 
w field. 

c) w - d <_4 for E specification. 

00000 2 a) FORMAT specifications are 
nested more than one level 
deep . 
b) A FORMAT statement contains 
more right parentheses than 
left parentheses. 

000003 a) Illegal character in FORMAT 

statement. 

b) Format repetition factor of 
zero . 

c) FORMAT statement defines 
more character positions 
than possible for device. 

000004 Illegal character in fixed field 
input item or number not right- 
justified in field. 

000005 A number has an illegal form 

(e.g., two Es , two decimal 
points, two signs, etc.). 



Irrecoverable 
error; program 
must be 
recompiled. 



Irrecoverable 
error; program 
must be 
recompiled. 



Irrecoverable 
error; program 
must be 
recompiled . 



Verify data. 



Verifv data. 
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INDEX 



A 

Actual argument 6-7,9 3 

Addition. 3 ~1 

Alphanumeric character 1-2 

ANSI FORTRAN IV . .C-l 

Argument, actual 6 _ " < 9 _ 3 

Argument, dummy 9-3 , 6-7 

Arithmetic assignment 

statement 5- 1 

Arithmetic element . . - 3-1 

Arithmetic expression ... 3-1 

Arithmetic IF 6-5 

Arithmetic operator 3-1 

Array 2-12,8-1 

Array declarator 4-1 

Array element i-\2 

Assignment statement, 

arithmetic 5-1 

Assignment statement, logical . . . .5-3 

ASSIGN TO 5 " 4 

Assigned GO TO 6_3 

A-Type conversion 8-21 

B 

BACKSPACE 7_8 

BCS xii 

Blank character I" 2 

c 

CALL 6_7 

CARRIAGE CONTROL 3-29 

Character, alphanumeric. 1-2 

Character, blank 1~2 

Character, special. 1_3 

Comment, line '- - - 1 

COMMON 4 ~ b 

COMMON, named . .4-5 

COMMON, unlabeled 4-5 

Complex constant. 2-7 

Complex conversion. . b- 17 

Complex data format. ■ • • .A-4 

Computed GO TO ( >~ 4 

Constant, complex 2-7 

Constant, double precision 2-6 

Constant, Hollerith 2-9 

Constant, integer 2-4,2-9 

Constant, logical • 2-8 

Constant, octal . .2-10 

Constant, real 2-5, 2-7 

CONTINUE • 6 ~ 9 



Continuation line 1-4 

Control statement, FORTRAN B-2 

Control variable 6-12 , 7-2 

Conversion, A-Type .8-21 

Conversion, complex .8-17 

Conversion , O-Type 8-16 

Conversion, E-Type 8-10 

Conversion, F-Type 8-12 

Conversion, G-Type 8-14 

Conversion , I -Type 8-6 

Conversion, K-Type .8-19 

Conversion, L-Type 8-18 

Conversion , O-Type 8-19 

Conversion, R-Type 8-2 3 

Conversion , X-Type 8-27 

Conversion, O-Type 8-19 

Cross Reference Symbol Table. . . . E-l 

D 

Data 4-8,2-13 

Data item 7-9 

Data item delimiter 7-9 

Declarator , array 4-1 

Delimiter, data item. 7-9 

Descriptor, field 8-3 

Digits 1-2 

DIMENS ION 4-4 

Division , 3-1 

DO 6-12 

DO- implied list 7-2 

DOS x i 

DOS-M xi 

Double precision constant 2-6 

Double precision data format .... A-3 

Dummy argument .....9-3,6-7 

D-Type conversion 8-16 

E 

Editing , wH 8-25 

Editing, "..." 8-26 

Element, arithmetic 3-1 

Element , array 2-12 

Element, .logical 3-5 

END 6- 3 , 6-16 

ENDFILE 7-8 

End job statement, FORTRAN B-l 

End 1 ine 1-5 

EQUIVALENCE 4-6 

ERROR, COMPILER DIAGNOSTICS. .. . G-l 
ERROR, OBJECT PROGRAM MESSAGES. B.-1 
E-Type conversion 8-10 
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Evaluating arithmetic 

expressions 

Executable program - 

Exponentiation 

Exponentiation of 

arithmetic elements 

Expression 

Expression, arithmetic 

Expression, logical 

Expression, relational .3 

Expression, subscript 2- 

EXTERNAL 4 

External files 7 



-4 



12 



'actor . 



3-; 



8-2,1-6,7- 

8-1,7- 

a- 



'actor , scale 8-8 

'ield descriptor 8-3 

'ield separator 8-28 

lies , external 7-1 

'ORMAT 

'ornat specification.. 

'ormat , complex data a 

ornat, double precision data.... A- 

'ormat , Hollerith data . . . .A- 

'ormat, integer data A- 

'ormat, logical data A- 

'orrnat , real data A- 

'orrcatted READ . 7-4,8- 

'ormatted records 7-3,8- 

'ormatted WRITE 7-5 , 8- 

'CRTRAN control statement . . . B- 

'ORTRAN end job statement B-l 

'ORTRAN IV library function 9-6 

'CRTRAN IV 30b deck B-l 

'ree field input.... 7-9,7-4,8-1 

'-Type conversion . . .8-12 

'unction .9-1 

'unction, statement 9-4 

'unction subprogram 1-1,9- 10 



jG TO, assigned 6-3 

30 TO, computed 6-4 

EEC TO, unconditional 6-2 

5-Type conversion 8-14 



H 



Etollerith constant. . . . 
lollerith data format. 
IP FORTRAN 



2-9 

A- 5 

iii,8-2 3,D-J 



I 

IF, arithmetic 6-5 

IF, logica] 6-6 

Initial line . . . . 1-4 

Initial parameter. 6-12 , 7-2 

Input/output list. 7-2 , 8-1 

Input/output unit 7-1 

Input, free field 7-9,7-4,8-1 

Integer constant 2-4 , 2-9 

Integer data format A- EL 

Item , data 7-9 

I- Type conversion • - • 8-6 

J 

Job deck, FORTRAN IV - - - B-l 

K 

K-Type conversion .8-19 

L 

Label , statement 1-5 

Letter 1-2 

Library Function, FORTRAN IV . ■ • .9-6 

Lines 1-3 

Line , comment 1-3 

Line, continuation . 1-4 

L ine , end 1-5 

Line , initial 1-4 

Line, program 1-4 

List, DO -imp lied 7-2 

List, input/output 7-2,6-1 

List, simple 7-2 

Logical assignment statement . - . .5-3 

Logical constant .2-8 

Logical data format A- 5 

Logical element 3-5 

Logical expression 3-4 

Logical IF .6-6 

Logical operator 3-4 

Logical unit - .7-1 

L-Type conversion 8-18 

M 

Magnetic tape unit 7-8 

Main program 1-1,1-6 

Mixed mode 4-8 

Multiplication 3-1 
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Named COMMON. . . 
Name, symbolic. 



N 



4-5 

.1-6,2-1 



o 



Octal constant 

Operator , arithmetic 
Operator, logical . . 
Ope rs to r , relational 
O-Type conversion. . 



2-10 
.3-1 
. .3-4 
. .3-6 
.8-19 



Parameter, initial 6-12 , 

Parameter, step- size. ....... .6-12 , 

Parameter, terminal 6-12, 

Parentheses 

PAUSE' £ 

Primary ■ 

Program, executable 

Program line - 

Program, main . 1-1 , 

Program unit 



7-2 

7-2 
7-2 
3-3 
-11 
3-1 
1-1 
1-4 
1-6 
1-1 



R 



AD, formatted 

AD, unformatted 

al constant 

al data format 

cord, formatted ..... 

cord terminator 

icord, unformatted. . . 
ilational expression. 
ilational operator. . . 
XCCATABLE SUBROUT INK 
ipeat specification.. 

:TU RN 

MIND 



. . .7-4,8-1 
. . .7-6,8-1 
.. . .2-5,2-7 

A-2 

. . .7-3,8-1 

7-10 

. . .7-3,8-1 

3-5 

3-6 



XII 



- c ) 



8-5 

6-8 

7-8 

, x i 

. . . .8-23 



Scale factor 8-8 

Separator, field 8-28 

Simple list 7-2 

Simpl e variable 2-11 

Special character. I - - 

,iecif ication, format 8-1,7-3 

Dec: f ication, repeat 8-5 

Statement 1~5 

Statement function 9-4 



Statement label 1-5 

Statement, terminal 6-12 , 6-9 

Step-size parameter 6-12 , 7-2 

STOP 6-10 

Subprogram 1-1 , 1-6 

Subprogram, function. ..... .1-1,9-10 

Subprogram, subroutine 1-1 

Subroutine 9-2 , 9-1 d 

Subroutine subprogram 1-1 

Subscript 2- 1 3 

Subscript expression. 2-12 

Subscripted variable 2-14 

Subtract: ion 3-1 

Symbo 1 ic names 1-6,2-1 

T 

Tape unit, magnetic 7-8 

Term 3-2 

Terminal parameter 6-12 , 7-2 

Terminal statement 6-12 ,6-9 

Terminator, record 7-10 

TYPE- ...4-3,2-2, 2-11 

u 

Unconditional GO TO 6-2 

Unformatted READ 7-6 

Unformatted records 7-3 

Unformatted WRITE 7-7 

Unit, input/output , 7 - 1 

Un i t , logical ' ~ - ! 

Un 1 1 , p rogram 1 ~ 1 

Unlabel 2d COMMON 4-5 

V 

Variable, control. 6-12, 7-2 

Variable , simple 2-1 1. 

Variable, subscripted , . . . .2-14 

w 

wH editing 8-^ 5 

WRITE , formatted. .7-5,8- 1 

Wri t e , unformatted 7-7 , 8- 1 

X 

X-Type conversion. 8-2 < 

". . . " editing 8-26 

3-Type conversion 8-19 
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